diff options
Diffstat (limited to 'doc/examples.mld')
-rw-r--r-- | doc/examples.mld | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/doc/examples.mld b/doc/examples.mld index e8543ca..8ac8821 100644 --- a/doc/examples.mld +++ b/doc/examples.mld @@ -79,7 +79,7 @@ let cmd = `S Manpage.s_bugs; `P "Report bugs to <bugs@example.org>."; `S Manpage.s_see_also; `P "$(b,rmdir)(1), $(b,unlink)(2)" ] in - let info = Cmd.info "rm" ~version:"v1.1.1" ~doc ~man in + let info = Cmd.info "rm" ~version:"v1.2.0" ~doc ~man in Cmd.v info Term.(const rm $ prompt $ recursive $ files) let main () = exit (Cmd.eval cmd) @@ -149,7 +149,7 @@ let cmd = [ `S Manpage.s_bugs; `P "Email them to <bugs@example.org>."; ] in - let info = Cmd.info "cp" ~version:"v1.1.1" ~doc ~man ~man_xrefs in + let info = Cmd.info "cp" ~version:"v1.2.0" ~doc ~man ~man_xrefs in Cmd.v info Term.(ret (const cp $ verbose $ recurse $ force $ srcs $ dest)) @@ -258,7 +258,7 @@ let cmd = `S Manpage.s_see_also; `P "$(b,cat)(1), $(b,head)(1)" ] in - let info = Cmd.info "tail" ~version:"v1.1.1" ~doc ~man in + let info = Cmd.info "tail" ~version:"v1.2.0" ~doc ~man in Cmd.v info Term.(const tail $ lines $ follow $ verb $ pid $ files) @@ -435,7 +435,7 @@ let help_cmd = let main_cmd = let doc = "a revision control system" in let man = help_secs in - let info = Cmd.info "darcs" ~version:"v1.1.1" ~doc ~sdocs ~man in + let info = Cmd.info "darcs" ~version:"v1.2.0" ~doc ~sdocs ~man in let default = Term.(ret (const (fun _ -> `Help (`Pager, None)) $ copts_t)) in Cmd.group info ~default [initialize_cmd; record_cmd; help_cmd] |