hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disambiguate logLevelParser

Browse Source
This commit is contained in:
Nikolay Yakimov 2015-12-06 02:11:49 +03:00
parent 9fd738ec97
commit 3665026fbf
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/GHCMod/Options.hs
View File

@ -60,7 +60,6 @@ logLevelParser =
logLevelOption = logLevelOption =
option int ( option int (
long "verbose" <> long "verbose" <>
short 'v' <>
metavar "LEVEL" <> metavar "LEVEL" <>
value 4 <> value 4 <>
showDefault <> showDefault <>
@ -68,12 +67,10 @@ logLevelParser =
) )
logLevelSwitch = logLevelSwitch =
(4+) . length <$> many (flag' () ( (4+) . length <$> many (flag' () (
long "verbose" <>
short 'v' <> short 'v' <>
help "Increase log level" help "Increase log level"
)) ))
silentSwitch = (\v -> if v then 0 else 4) <$> silentSwitch = flag' 0 (
switch (
long "silent" <> long "silent" <>
short 's' <> short 's' <>
help "Be silent, set log level to 0" help "Be silent, set log level to 0"