Bring back the publish subcommand (adapted)
git-svn-id: file:///srv/svn/repo/kosuzu/trunk@78 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
@@ -10,6 +10,7 @@ let subs = [
|
||||
Listing.cmd;
|
||||
New.cmd;
|
||||
Peers.cmd;
|
||||
Publish.cmd;
|
||||
Pull.cmd;
|
||||
Recent.cmd;
|
||||
Topics.cmd;
|
||||
@@ -28,7 +29,7 @@ let txt =
|
||||
`P "This program is named after Kosuzu Motoori from Touhou Suzunaan: Forbidden Scrollery";
|
||||
`P "https://en.touhouwiki.net/wiki/Forbidden_Scrollery" ]
|
||||
in
|
||||
Cmd.group (Cmd.info "txt" ~version:"%%VERSION%%" ~doc ~man) ~default:default_cmd subs
|
||||
Cmd.group (Cmd.info "txt" ~version:"1.4.5" ~doc ~man) ~default:default_cmd subs
|
||||
|
||||
let main () = exit (Cmd.eval txt)
|
||||
let () = main ()
|
||||
|
||||
Reference in New Issue
Block a user