Commits

camlspotter committed b08242c

Unix.Process_status

Comments (0)

Files changed (1)

                     | (`Err, `Read mes) -> eprintf "Failed to copy %s to %s: %s\n%!" spotspit dirname mes
                     | _ -> ())
                 with
-                | WEXITED 0 -> 
+                | `Exited 0 -> 
                     Hashset.add copied p;
                     eprintf "Copied %s to %s\n%!" spotspit dirname
-                | WEXITED _ -> ()
+                | `Exited n -> 
+                    eprintf "cp returned with a strange status %d\n%!" n
                 | _ -> eprintf "Failed to copy %s to %s: SOME STRANGE READON\n%!" spotspit dirname))
     | _ -> ());