hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't swallow ghc's verbose output

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

11
Language/Haskell/GhcMod/DynFlags.hs
View File

@@ -3,18 +3,19 @@
module Language.Haskell.GhcMod.DynFlags where
import Control.Applicative
import Control.Monad (void)
import GHC (DynFlags(..), GhcMode(..), GhcLink(..), HscTarget(..))
import Control.Monad
import GHC
import qualified GHC as G
import GHC.Paths (libdir)
import GhcMonad
import qualified Language.Haskell.GhcMod.Gap as Gap
import Language.Haskell.GhcMod.Types
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)
-- * Fast
-- * Friendly to foreign export