Fix the quoting of FLG lines in .merlin files

CHANGES.md

@@ -1,3 +1,8 @@
+1.0.0 (comming soon)
+--------------------
+
+- Fix the quoting of `FLG` lines in generated `.merlin` files
+
 1.0+beta11 (21/07/2017)
 -----------------------
 

src/merlin.ml

@@ -23,7 +23,7 @@ let ppx_flags sctx ~dir ~src_dir { preprocess; libname; _ } =
         ~f:quote_for_shell
       |> String.concat ~sep:" "
     in
-    [sprintf "FLG -ppx \"%s\"" command]
+    [sprintf "FLG -ppx %s" (Filename.quote command)]
   | _ -> []
 
 let dot_merlin sctx ~dir ({ requires; flags; _ } as t) =