The proper way to escape @ in a format string is %@ not deprecated @@...

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16442 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
ocaml-flambda · Sep 24, 2015 · 10d5bf3 · 10d5bf3
1 parent acd6067
commit 10d5bf3
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/typing/primitive.ml b/typing/primitive.ml
@@ -128,11 +128,10 @@ let byte_name p =
   p.prim_name
 
 let report_error ppf err =
-  let open Format in
   match err with
   | Float_with_native_repr_attribute ->
-      fprintf ppf "Cannot use \"float\" in conjunction with \
-                   [@@unboxed]/[@@untagged]"
+    Format.fprintf ppf "Cannot use \"float\" in conjunction with \
+                   [%@unboxed]/[%@untagged]"
 
 let () =
   Location.register_error_of_exn