com

psibi · Oct 18, 2019 · 824be48 · 824be48
1 parent ea100e6
commit 824be48
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -18,6 +18,7 @@ import Tldr
 data TldrOpts =
   TldrOpts
     { pageName :: String
+    , platformOption :: String
     }
   deriving (Show)
 
@@ -58,15 +59,19 @@ updateTldrPages = do
     False -> initializeTldrPages
 
 updateOption :: Parser (a -> a)
-updateOption = infoOption "update" (long "update" <> help "Update tldr pages")
+updateOption =
+  infoOption "update" (long "update" <> short 'u' <> help "Update tldr pages")
 
 tldrParserInfo :: ParserInfo TldrOpts
 tldrParserInfo =
   info
-    (helper <*> versionOption <*> updateOption <*> programOptions)
+    (helper <*> versionOption <*> updateOption <*> programOptions <*>
+     platformOption)
     (fullDesc <> progDesc "tldr Client program" <>
      header "tldr - Simplified and community-driven man pages")
   where
+    platformOption :: Parser (a -> a)
+    platformOption = undefined
     versionOption :: Parser (a -> a)
     versionOption =
       infoOption