diff options
Diffstat (limited to 'ghc/compiler/ghci/InteractiveUI.hs')
-rw-r--r-- | ghc/compiler/ghci/InteractiveUI.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs index 67c68d3b16..3469421b18 100644 --- a/ghc/compiler/ghci/InteractiveUI.hs +++ b/ghc/compiler/ghci/InteractiveUI.hs @@ -37,7 +37,6 @@ import StaticFlags ( opt_IgnoreDotGhci ) import Linker ( showLinkerState ) import Util ( removeSpaces, handle, global, toArgs, looksLikeModuleName, prefixMatch, sortLe ) -import ErrUtils ( printErrorsAndWarnings ) #ifndef mingw32_HOST_OS import System.Posix @@ -675,7 +674,7 @@ checkModule :: String -> GHCi () checkModule m = do let modl = mkModule m session <- getSession - result <- io (GHC.checkModule session modl printErrorsAndWarnings) + result <- io (GHC.checkModule session modl) case result of Nothing -> io $ putStrLn "Nothing" Just r -> io $ putStrLn (showSDoc ( |