Don't swallow ghc's verbose output

This commit is contained in:
Daniel Gröber
2015-09-08 06:44:02 +02:00
parent dbf215a35b
commit 6ad71af001
4 changed files with 27 additions and 11 deletions

View File

@@ -38,6 +38,7 @@ import Language.Haskell.GhcMod.Utils as U
import Language.Haskell.GhcMod.FileMapping
import Language.Haskell.GhcMod.LightGhc
import Language.Haskell.GhcMod.CustomPackageDb
import Language.Haskell.GhcMod.Output
import Data.Maybe
import Data.Monoid as Monoid
@@ -131,8 +132,9 @@ runGmlTWith efnmns' mdf wrapper action = do
(text "Initializing GHC session with following options")
(intercalate " " $ map (("\""++) . (++"\"")) opts')
putErr <- gmErrStrIO
initSession opts' $
setModeSimple >>> setEmptyLogger >>> mdf
setModeSimple >>> setDebugLogger putErr >>> mdf
mappedStrs <- getMMappedFilePaths
let targetStrs = mappedStrs ++ map moduleNameString mns ++ cfns