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/Language/Haskell/GhcMod/Logging.hs
+++ b/Language/Haskell/GhcMod/Logging.hs
@@ -40,6 +40,10 @@ increaseLogLevel :: GmLogLevel -> GmLogLevel
 increaseLogLevel l | l == maxBound = l
 increaseLogLevel l = succ l

+decreaseLogLevel :: GmLogLevel -> GmLogLevel
+decreaseLogLevel l | l == minBound = l
+decreaseLogLevel l = succ l
+
 -- |
 -- >>> Just GmDebug <= Nothing
 -- False