Always show help message

2020-02-01 14:58:54 +01:00 · 2020-02-01 14:58:54 +01:00 · fe9578c9d6
commit fe9578c9d6
parent 160928e228
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