completed help message

README.md

@@ -1,4 +1,4 @@
-# tldr
+# fast-tldr
 
 A fast client for tldr.
 
@@ -13,7 +13,8 @@ See Github releases: https://github.com/gutjuri/fast-tldr/releases
 Or
 
 1. [Install stack](https://docs.haskellstack.org/en/stable/README/#how-to-install)
-2. `stack install tldr`
+2. `git clone https://github.com/gutjuri/fast-tldr.git && cd fast-tldr`
+2. `stack install`
 
 ## Usage
 

src/Tldr/App.hs

@@ -57,5 +57,5 @@ parseOpts [] = ViewPage (ViewOptions Nothing Nothing Nothing) []
 appMain :: IO ()
 appMain = do
   args <- getArgs
-  let opts = if null args then ShowHelp 1 else parseOpts args
+  let opts = parseOpts args
   handleTldrOpts opts

src/Tldr/App/Handler.hs

@@ -66,6 +66,8 @@ showHelp exitCode = do
       , "-u --update                Update local cache"
       , "-L --language <lang>       Use <lang> instead of english"
       , "-p --platform <platform>   Use <platform> instead of the native platform"
+      , "-a --auto-update-interval <days>"
+      , "            Perform an automatic update if the cache is older than <days>" 
       ]
   putStr helpMsg
   if exitCode == 0 then exitSuccess else exitFailure
@@ -79,6 +81,7 @@ handleTldrOpts :: Command -> IO ()
 handleTldrOpts command = case command of
   UpdateIndex             -> updateTldrPages
   ShowHelp exitCode       -> showHelp exitCode
+  ViewPage _        []    -> handleTldrOpts $ ShowHelp 1
   ViewPage voptions pages -> do
     shouldPerformUpdate <- updateNecessary command
     when shouldPerformUpdate updateTldrPages