handling logging level

2015-10-31 12:34:30 +01:00
parent 06323ac20f
commit d0ea69b61b
3 changed files with 15 additions and 4 deletions
--- a/Language/Haskell/GhcMod/Monad.hs
+++ b/Language/Haskell/GhcMod/Monad.hs
@@ -99,9 +99,9 @@ runGhcModT opt action = liftIO (getCurrentDirectory >>= canonicalizePath) >>= \d
    runGmOutT opt $
      withGhcModEnv dir' opt $ \(env,lg) ->
        first (fst <$>) <$> runGhcModT' env defaultGhcModState
-          ( gmlJournal lg >>
-            gmSetLogLevel (ooptLogLevel $ optOutput opt) >>
-            action)
+          (gmSetLogLevel (ooptLogLevel $ optOutput opt) >>
+           gmLog' lg >>
+           action)

 -- | @hoistGhcModT result@. Embed a GhcModT computation's result into a GhcModT
 -- computation. Note that if the computation that returned @result@ modified the