Fix the default value bug

psibi · psibi · commit 4db3ab45444c · 2019-10-19T14:45:03.000+05:30
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
