From 1bc5ae70d9f88b564bca63946798cda216eb9d09 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 1 Feb 2020 00:38:33 +0100 Subject: [PATCH] Add descriptions to commands --- app/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 6499af0..e5b7bf9 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -63,10 +63,10 @@ data DelOptions = DelOptions { opts :: Parser Command opts = subparser - ( command "fork" (Fork <$> (info (forkOpts <**> helper) idm)) - <> command "config" (Config <$> (info (configOpts <**> helper) idm)) - <> command "delete" (Del <$> (info (delOpts <**> helper) idm)) - <> command "list-forks" (ListForks <$> (info (lForkOpts <**> helper) idm)) + ( command "fork" (Fork <$> (info (forkOpts <**> helper) (progDesc "Fork a repository"))) + <> command "config" (Config <$> (info (configOpts <**> helper) (progDesc "Set ghup config (such as OAuth)"))) + <> command "delete" (Del <$> (info (delOpts <**> helper) (progDesc "Delete a forked repository"))) + <> command "list-forks" (ListForks <$> (info (lForkOpts <**> helper) (progDesc "List my forks"))) ) configOpts :: Parser ConfigOptions