Always show help message

2020-02-01 14:58:54 +01:00
parent 160928e228
commit fe9578c9d6
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -128,7 +128,7 @@ main = do
              pure
            $ getSettings
        (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 (ForkOptions {..}) -> run $ do