Fix the default value bug

psibi · Oct 19, 2019 · 4db3ab4 · 4db3ab4
1 parent 6142ca0
commit 4db3ab4
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,9 @@
+# 0.6.0
+
+* Make it obey --platform option
+* Add -u as an alias for --update
+
+
 # 0.5.1
 
 * Proper options handling

diff --git a/app/Main.hs b/app/Main.hs
@@ -39,7 +39,7 @@ programOptions :: Parser TldrOpts
 programOptions = (TldrOpts <$> (updateIndexCommand <|> viewPageCommand))
 
 updateIndexCommand :: Parser TldrCommand
-updateIndexCommand = flag UpdateIndex UpdateIndex (long "update" <> short 'u')
+updateIndexCommand = flag' UpdateIndex (long "update" <> short 'u')
 
 viewOptionsParser :: Parser ViewOptions
 viewOptionsParser = ViewOptions <$> platformFlag