Commits

camlspotter committed 527fd1e

for spotlib 2.4.0

  • Participants
  • Parent commits d740352

Comments (0)

Files changed (1)

 open Spotlib.Spot
+open Unix.Command
 
 let clone ?credential user package =
   let cred = match credential with
     | None -> ""
     | Some (user, pass) -> Printf.sprintf "%s:%s@" user pass
   in
-  Unix.shell_command 
-    (Printf.sprintf "hg clone http://%sbitbucket.org/%s/%s"
-       cred
-       user package)
+  shell (Printf.sprintf "hg clone http://%sbitbucket.org/%s/%s"
+           cred
+           user package)
+  |> print
+  |> must_exit_with 0