From fe9578c9d6cbc3b41f1479e9417d929cbd5967aa Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sat, 1 Feb 2020 14:58:54 +0100
Subject: [PATCH] Always show help message

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index e5b7bf9..2b24c49 100644
--- 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