Commits

camlspotter committed 813a380

Only first found annot/spot/cmt file was installed #FIX

Comments (0)

Files changed (1)

   Unix.find ["."] ~f:(fun path ->
     match Filename.split_extension path.Unix.base with
     | body, (".cmx" | ".cmo" | ".cmi" | ".ml" as ext) -> 
-        begin match 
-            let spotspits = 
-              List.map (fun ext -> path.Unix.dir ^/ body ^ ext) (exts_of_sp ext)
-            in
-            try Some (List.find Sys.file_exists spotspits) with Not_found -> None
-        with
-        | None -> ()
-        | Some spotspit ->
+        List.map (fun ext -> path.Unix.dir ^/ body ^ ext) (exts_of_sp ext)
+        |> List.find_all Sys.file_exists 
+        |> List.iter (fun spotspit ->
             let found = Hashtbl.find_all installed_cms (body, ext) in
             List.iter (fun p -> 
               match Unix.cmp p path.Unix.path with
                       Printf.eprintf "Copied %s to %s\n" spotspit dirname
                   | WEXITED _ -> ()
                   | _ -> Printf.eprintf "Failed to copy %s to %s: SOME STRANGE READON\n" spotspit dirname
-            ) found
-        end
+            ) found)
     | _ -> ());
 
   (* check not found *)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.