From 3665026fbfd424a0305c8532238e3bd268a47f0b Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Sun, 6 Dec 2015 02:11:49 +0300
Subject: [PATCH] Disambiguate logLevelParser

---
 src/GHCMod/Options.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/GHCMod/Options.hs b/src/GHCMod/Options.hs
index fb43ede..d6ad6d9 100644
--- 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"