Disambiguate logLevelParser

2015-12-06 02:11:49 +03:00 · 2015-12-06 02:11:49 +03:00 · 3665026fbf
commit 3665026fbf
parent 9fd738ec97
1 changed files with 1 additions and 4 deletions
--- a/src/GHCMod/Options.hs
+++ b/src/GHCMod/Options.hs
@ -60,7 +60,6 @@ logLevelParser =
    logLevelOption =
      option int (
        long "verbose" <>
-        short 'v' <>
        metavar "LEVEL" <>
        value 4 <>
        showDefault <>
@ -68,12 +67,10 @@ logLevelParser =
      )
    logLevelSwitch =
      (4+) . length <$> many (flag' () (
-        long "verbose" <>
        short 'v' <>
        help "Increase log level"
      ))
-    silentSwitch = (\v -> if v then 0 else 4) <$>
-      switch (
+    silentSwitch = flag' 0 (
        long "silent" <>
        short 's' <>
        help "Be silent, set log level to 0"