diff options
author | 2015-07-09 11:49:52 -0400 | |
---|---|---|
committer | 2015-07-09 11:52:47 -0400 | |
commit | 6ddffe0f0e64a87fd924f736941fa242e0d740a6 (patch) | |
tree | 94bc5fed6512ea3cfab47b274cf5534edf889b77 /CmdLine/GitAnnexShell.hs | |
parent | 1e4c1adeae64baa4eb30fd7e1171620c27e0e17f (diff) |
let optparse-applicative handle the usage display when run w/o command or bad command
Still generating the list of commands myself, to get it sorted into
sections and with short synopses.
Diffstat (limited to 'CmdLine/GitAnnexShell.hs')
-rw-r--r-- | CmdLine/GitAnnexShell.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/CmdLine/GitAnnexShell.hs b/CmdLine/GitAnnexShell.hs index fca37790b..bda4f7907 100644 --- a/CmdLine/GitAnnexShell.hs +++ b/CmdLine/GitAnnexShell.hs @@ -101,7 +101,9 @@ builtin cmd dir params = do let (params', fieldparams, opts) = partitionParams params rsyncopts = ("RsyncOptions", unwords opts) fields = rsyncopts : filter checkField (parseFields fieldparams) - dispatch False (cmd : params') cmds options fields header mkrepo + dispatch False (cmd : params') cmds options fields mkrepo + "git-annex-shell" + "Restricted login shell for git-annex only SSH access" where mkrepo = do r <- Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath |