Commits

camlspotter committed 27d3799

spotlib change

Comments (0)

Files changed (1)

 let ocamlfind_path = 
   match 
     imp_ None (fun ocamlfind_path ->
-      ignore (shell_command "ocamlfind printconf destdir" ~f:(function
+      ignore (shell_command "ocamlfind printconf destdir" (function
         | (`Out, `Read line) ->
             begin match !ocamlfind_path with
             | Some _ -> failwith "ocamlfind printconf destdir prints more than one line"
 let ocaml_where = 
   match 
     imp_ None (fun ocaml_where ->
-      ignore (shell_command "ocamlc -where" ~f:(function
+      ignore & shell_command "ocamlc -where" (function
         | (`Out, `Read line) ->
             begin match !ocaml_where with
             | Some _ -> failwith "ocamlc -where prints more than one line"
             | None -> ocaml_where := Some (String.chop_newline line)
             end
-        | _ -> ())))
+        | _ -> ()))
   with
   | None -> failwith "ocamlc -where failed."
   | Some p -> p
                   (* The file is installed! If there is .spot/.spit, copy it! *)
                   let dirname = Filename.dirname p in
                   match 
-                    Unix.command ["cp"; spotspit; dirname] ~f:(function
+                    Unix.command ["cp"; spotspit; dirname] (function
                       | (`Err, `Read mes) -> Printf.eprintf "Failed to copy %s to %s: %s\n" spotspit dirname mes
                       | _ -> ())
                   with