switched from flag to switch in optparser

This commit is contained in:
Nicole Dresselhaus 2015-12-06 01:55:16 +01:00
parent d8509a45e1
commit 46ef59dde1

View File

@ -24,7 +24,7 @@ options = Options
<$> argument str (metavar "SRC" <> help "source file (or - for stdin)") <$> argument str (metavar "SRC" <> help "source file (or - for stdin)")
<*> argument auto (metavar "WIDTH" <> help "resulting width") <*> argument auto (metavar "WIDTH" <> help "resulting width")
<*> argument auto (metavar "HEIGHT" <> help "resulting height") <*> argument auto (metavar "HEIGHT" <> help "resulting height")
<*> flag True False (long "256-colors" <> short 'c' <> help "only use 256-color-mode for old terminals") <*> switch (long "256-colors" <> short 'c' <> help "only use 256-color-mode for old terminals")
opthelp :: ParserInfo Options opthelp :: ParserInfo Options
opthelp = info (helper <*> options) opthelp = info (helper <*> options)