Fix #7

psibi · Jan 6, 2018 · fa2c726 · fa2c726
1 parent 2ebbc90
commit fa2c726
Showing 1 changed file with 11 additions and 7 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -1,4 +1,5 @@
 {-#LANGUAGE CPP#-}
+{-#LANGUAGE ScopedTypeVariables#-}
 
 module Main where
 
@@ -97,14 +98,17 @@ getPagePath page = do
 
 main :: IO ()
 main = do
-  initializeTldrPages
   args <- getArgs
   case execParserPure (prefs noBacktrack) tldrParserInfo args of
     Failure _
-      | null args -> withArgs ["--help"] (execParser tldrParserInfo) >> return ()
+      | null args -> handleParseResult . Failure $ parserFailure defaultPrefs tldrParserInfo ShowHelpText mempty
       | args == ["--update"] -> updateTldrPages
-    parseResult -> do
-      opts <- handleParseResult parseResult
-      let page = pageName opts
-      fname <- getPagePath page
-      maybe (putStrLn ("No tldr entry for " <> page)) renderPage fname
+    (parseResult :: ParserResult TldrOpts) -> do
+         case args of
+           ["--help"] -> handleParseResult . Failure $ parserFailure defaultPrefs tldrParserInfo ShowHelpText mempty
+           _ -> do
+             initializeTldrPages
+             opts <- handleParseResult parseResult
+             let page = pageName opts
+             fname <- getPagePath page
+             maybe (putStrLn ("No tldr entry for " <> page)) renderPage fname