hasufell/ghup
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Always show help message

Browse Source
This commit is contained in:
Julian Ospald 2020-02-01 14:58:54 +01:00
parent 160928e228
commit fe9578c9d6
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -128,7 +128,7 @@ main = do
pure pure
$ getSettings $ getSettings
(flip runReaderT) settings . runExceptT . withExceptT show $ e (flip runReaderT) settings . runExceptT . withExceptT show $ e
e <- execParser (info (opts <**> helper) idm) >>= \case e <- customExecParser (prefs showHelpOnError) (info (opts <**> helper) idm) >>= \case
-- fork -- fork
Fork (ForkOptions {..}) -> run $ do Fork (ForkOptions {..}) -> run $ do