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.hs
+++ b/Language/Haskell/GhcMod.hs
@@ -12,6 +12,7 @@ module Language.Haskell.GhcMod (
  -- * Logging
  , GmLogLevel
  , increaseLogLevel
+  , decreaseLogLevel
  , gmSetLogLevel
  , gmLog
  -- * Types
--- 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