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 *)