From a7fa8d4f406dff0161087c8c4a3b270b6502e3d1 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Mon, 2 Nov 2020 22:38:03 +0000
Subject: [PATCH] [hs] Display available commands when ran without arguments

---
 hs/app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hs/app/Main.hs b/hs/app/Main.hs
index 586ff71..88d2d4c 100644
--- a/hs/app/Main.hs
+++ b/hs/app/Main.hs
@@ -11,7 +11,7 @@ data Settings = Settings
 
 solutions :: Parser (FilePath -> IO ())
 solutions = subparser $ mconcat $ map (\(name, func) -> command name (info (pure func) mempty))
-  [ ("201901", solve201901)
+  [ ("2019_01", solve201901)
   ]
 
 parser :: Parser Settings
@@ -24,5 +24,5 @@ opts = info (helper <*> parser) $ fullDesc <> failureCode 1
 
 main :: IO ()
 main = do
-  settings <- execParser opts
+  settings <- customExecParser (prefs showHelpOnEmpty) opts
   function settings $ filename settings