Update to our vendored copy of opam-file-format

This copy is a fork of opam-file-format.2.1.6 with out patches applied.

Signed-off-by: Marek Kubica <[email protected]>

Author: Leonidas-from-XIV

boot/libs.ml

@@ -33,7 +33,7 @@ let local_libraries =
   ; ("src/fiber_util", Some "Fiber_util", false, None)
   ; ("src/dune_cache_storage", Some "Dune_cache_storage", false, None)
   ; ("src/dune_cache", Some "Dune_cache", false, None)
-  ; ("vendor/opam-file-format/src", None, false, None)
+  ; ("vendor/opam-file-format", None, false, None)
   ; ("otherlibs/action-plugin/src", Some "Dune_action_plugin", false, None)
   ; ("otherlibs/chrome-trace/src", Some "Chrome_trace", false, None)
   ; ("vendor/spawn/src", Some "Spawn", false, None)

vendor/opam-file-format/LICENSE

@@ -18,7 +18,7 @@ exception Error of string
 
 let newline lexbuf = Lexing.new_line lexbuf
 let error fmt =
-  Printf.kprintf (fun msg -> raise (Error msg)) fmt
+  Printf.ksprintf (fun msg -> raise (Error msg)) fmt
 
 let relop = function
   | "="  -> `Eq

vendor/opam-file-format/src/dune vendor/opam-file-format/dunevendor/opam-file-format/src/dune renamed to vendor/opam-file-format/dune

@@ -426,8 +426,7 @@ module FullPos = struct
     | Bool b -> Format.fprintf fmt "%b" b
     | String s ->
       if String.contains s '\n'
-      then Format.fprintf fmt "\"\"\"%s%s\"\"\""
-          (if s.[0] = '\n' then "" else "\\\n")
+      then Format.fprintf fmt "\"\"\"\n%s\"\"\""
           (escape_string ~triple:true s)
       else Format.fprintf fmt "\"%s\"" (escape_string s)
     | List l ->