Fixed compilation error.

kodek16 · kodek16 · commit fe7968da9fd2 · 2018-08-15T11:00:30.000+01:00
Signed-off-by: Pavel Senchanka &lt;pavel.senchanka@gmail.com&gt;
diff --git a/bin/main.ml b/bin/main.ml
@@ -810,7 +810,7 @@ let fswatch_command root_path =
      not reliable (at least on Linux), so don't try to use it, instead act on all events.
   *)
   let use_fswatch =
-    let excludes = List.(map (fun x -> ["--exclude"; x]) excludes |> concat) in
+    let excludes = List.(map ~f:(fun x -> ["--exclude"; x]) excludes |> concat) in
     let args = [ "-r"; path; "-1" ] @ excludes in
     "fswatch", args
   in
