some refactoring

2015-11-27 11:12:30 +01:00
parent e1d2de96c8
commit bff86be69f
3 changed files with 5 additions and 11 deletions
--- a/Language/Haskell/GhcMod/Monad.hs
+++ b/Language/Haskell/GhcMod/Monad.hs
@@ -100,7 +100,7 @@ runGhcModT opt action = liftIO (getCurrentDirectory >>= canonicalizePath) >>= \d
      withGhcModEnv dir' opt $ \(env,lg) ->
        first (fst <$>) <$> runGhcModT' env defaultGhcModState
          (gmSetLogLevel (ooptLogLevel $ optOutput opt) >>
-           gmLog' lg >>
+           gmAppendLog lg >>
           action)

 -- | @hoistGhcModT result@. Embed a GhcModT computation's result into a GhcModT