Add quiet option to decrease log level

2015-03-06 19:46:56 +01:00
parent b9230c7e3f
commit c05bd816e7
3 changed files with 11 additions and 1 deletions
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@@ -263,9 +263,14 @@ reqArg udsc dsc = ReqArg dsc udsc
 globalArgSpec :: [OptDescr (Options -> Options)]
 globalArgSpec =
      [ option "v" ["verbose"] "Can be given multiple times to be increasingly\
-                               \more verbose." $
+                               \ be more verbose." $
               NoArg $ \o -> o { logLevel = increaseLogLevel (logLevel o) }

+      , option "q" [] "Can be given multiple times to be increasingly be less\
+                      \ verbose." $
+               NoArg $ \o -> o { logLevel = decreaseLogLevel (logLevel o) }
+
+
      , option "l" ["tolisp"] "Format output as an S-Expression" $
               NoArg $ \o -> o { outputStyle = LispStyle }