Add descriptions to commands

This commit is contained in:
Julian Ospald 2020-02-01 00:38:33 +01:00
parent f8dd4b9f95
commit 1bc5ae70d9
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28

View File

@ -63,10 +63,10 @@ data DelOptions = DelOptions {
opts :: Parser Command opts :: Parser Command
opts = subparser opts = subparser
( command "fork" (Fork <$> (info (forkOpts <**> helper) idm)) ( command "fork" (Fork <$> (info (forkOpts <**> helper) (progDesc "Fork a repository")))
<> command "config" (Config <$> (info (configOpts <**> helper) idm)) <> command "config" (Config <$> (info (configOpts <**> helper) (progDesc "Set ghup config (such as OAuth)")))
<> command "delete" (Del <$> (info (delOpts <**> helper) idm)) <> command "delete" (Del <$> (info (delOpts <**> helper) (progDesc "Delete a forked repository")))
<> command "list-forks" (ListForks <$> (info (lForkOpts <**> helper) idm)) <> command "list-forks" (ListForks <$> (info (lForkOpts <**> helper) (progDesc "List my forks")))
) )
configOpts :: Parser ConfigOptions configOpts :: Parser ConfigOptions