Only use debugLogger when loglevel >= GmDebug

2015-09-16 05:09:55 +02:00
parent 413bac085d
commit 380acdaee0
2 changed files with 12 additions and 1 deletions
--- a/Language/Haskell/GhcMod/DynFlags.hs
+++ b/Language/Haskell/GhcMod/DynFlags.hs
@@ -13,6 +13,10 @@ import Language.Haskell.GhcMod.DebugLogger
 import System.IO.Unsafe (unsafePerformIO)
 import Prelude

+setEmptyLogger :: DynFlags -> DynFlags
+setEmptyLogger df =
+    Gap.setLogAction df $ \_ _ _ _ _ -> return ()
+
 setDebugLogger :: (String -> IO ()) -> DynFlags -> DynFlags
 setDebugLogger put df = do
  Gap.setLogAction df (debugLogAction put)