gazagnaire.org / irmin
Persistent store with Git semantics: lazy reads, delayed writes, content-addressing
1
fork

Configure Feed

Select the types of activity you want to include in your feed.

irmin/bin: propagate exit codes via Stdlib.exit

Thomas Gazagnaire bac5d35e 8cf47f3d

+14 -13
+1 -1
bin/cmd_branches.ml
··· 20 20 let doc = "List branches." in 21 21 Cmd.v (Cmd.info "branches" ~doc) 22 22 Term.( 23 - const (fun () repo output -> ignore (run ~repo ~output ())) 23 + const (fun () repo output -> Stdlib.exit (run ~repo ~output ())) 24 24 $ Terms.setup $ Terms.repo $ Terms.output)
+2 -1
bin/cmd_checkout.ml
··· 49 49 Cmd.v 50 50 (Cmd.info "checkout" ~doc ~man) 51 51 Term.( 52 - const (fun () repo create branch -> ignore (run ~repo ~create branch)) 52 + const (fun () repo create branch -> 53 + Stdlib.exit (run ~repo ~create branch)) 53 54 $ Terms.setup $ Terms.repo $ flag $ checkout_branch)
+1 -1
bin/cmd_clone.ml
··· 105 105 Cmd.v 106 106 (Cmd.info "clone" ~doc ~man) 107 107 Term.( 108 - const (fun () source dir -> ignore (run ~source dir)) 108 + const (fun () source dir -> Stdlib.exit (run ~source dir)) 109 109 $ Terms.setup $ clone_source $ clone_dir)
+1 -1
bin/cmd_del.ml
··· 50 50 Cmd.v (Cmd.info "del" ~doc ~man) 51 51 Term.( 52 52 const (fun () repo branch message path -> 53 - ignore (run ~repo ~branch ~message path)) 53 + Stdlib.exit (run ~repo ~branch ~message path)) 54 54 $ Terms.setup $ Terms.repo $ Terms.branch $ Terms.message $ del_path)
+1 -1
bin/cmd_export.ml
··· 65 65 Cmd.v 66 66 (Cmd.info "export" ~doc ~man) 67 67 Term.( 68 - const (fun () repo file -> ignore (run ~repo file)) 68 + const (fun () repo file -> Stdlib.exit (run ~repo file)) 69 69 $ Terms.setup $ Terms.repo $ export_file)
+1 -1
bin/cmd_get.ml
··· 39 39 Cmd.v (Cmd.info "get" ~doc ~man) 40 40 Term.( 41 41 const (fun () repo branch output path -> 42 - ignore (run ~repo ~branch ~output path)) 42 + Stdlib.exit (run ~repo ~branch ~output path)) 43 43 $ Terms.setup $ Terms.repo $ Terms.branch $ Terms.output $ path)
+1 -1
bin/cmd_import.ml
··· 58 58 Cmd.v 59 59 (Cmd.info "import" ~doc ~man) 60 60 Term.( 61 - const (fun () repo file -> ignore (run ~repo file)) 61 + const (fun () repo file -> Stdlib.exit (run ~repo file)) 62 62 $ Terms.setup $ Terms.repo $ import_file)
+1 -1
bin/cmd_info.ml
··· 79 79 Cmd.v 80 80 (Cmd.info "info" ~doc ~man) 81 81 Term.( 82 - const (fun () repo file -> ignore (run ~repo file)) 82 + const (fun () repo file -> Stdlib.exit (run ~repo file)) 83 83 $ Terms.setup $ Terms.repo $ info_file)
+1 -1
bin/cmd_list.ml
··· 48 48 (Cmd.info "list" ~doc ~man) 49 49 Term.( 50 50 const (fun () repo branch output prefix -> 51 - ignore (run ~repo ~branch ~output prefix)) 51 + Stdlib.exit (run ~repo ~branch ~output prefix)) 52 52 $ Terms.setup $ Terms.repo $ Terms.branch $ Terms.output $ list_prefix)
+1 -1
bin/cmd_log.ml
··· 71 71 Cmd.v (Cmd.info "log" ~doc ~man) 72 72 Term.( 73 73 const (fun () repo branch output limit -> 74 - ignore (run ~repo ~branch ~output ~limit ())) 74 + Stdlib.exit (run ~repo ~branch ~output ~limit ())) 75 75 $ Terms.setup $ Terms.repo $ Terms.branch $ Terms.output $ log_limit)
+1 -1
bin/cmd_proof_produce.ml
··· 50 50 Cmd.v 51 51 (Cmd.info "produce" ~doc ~man) 52 52 Term.( 53 - const (fun () output key data -> ignore (run ~output ~key data)) 53 + const (fun () output key data -> Stdlib.exit (run ~output ~key data)) 54 54 $ Terms.setup $ Terms.output $ Cmd_proof_shared.proof_key 55 55 $ Cmd_proof_shared.proof_data)
+1 -1
bin/cmd_proof_verify.ml
··· 47 47 Cmd.v 48 48 (Cmd.info "verify" ~doc ~man) 49 49 Term.( 50 - const (fun () output key data -> ignore (run ~output ~key data)) 50 + const (fun () output key data -> Stdlib.exit (run ~output ~key data)) 51 51 $ Terms.setup $ Terms.output $ Cmd_proof_shared.proof_key 52 52 $ Cmd_proof_shared.proof_data)
+1 -1
bin/cmd_tree.ml
··· 77 77 (Cmd.info "tree" ~doc ~man) 78 78 Term.( 79 79 const (fun () repo branch output path -> 80 - ignore (run ~repo ~branch ~output path)) 80 + Stdlib.exit (run ~repo ~branch ~output path)) 81 81 $ Terms.setup $ Terms.repo $ Terms.branch $ Terms.output $ tree_path)