From 92a5f4abbd32c0a28b75207b368d86e59515683d Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 3 Oct 2010 12:57:07 +0000 Subject: [PATCH] Replace an outputStr with putStrLn calls; fixes #4332 --- ghc/InteractiveUI.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index c457d8a..11a3c98 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -894,7 +894,8 @@ changeDirectory "" = do changeDirectory dir = do graph <- GHC.getModuleGraph when (not (null graph)) $ - outputStr "Warning: changing directory causes all loaded modules to be unloaded,\nbecause the search path has changed.\n" + do liftIO $ putStrLn "Warning: changing directory causes all loaded modules to be unloaded," + liftIO $ putStrLn "because the search path has changed." prev_context <- GHC.getContext GHC.setTargets [] _ <- GHC.load LoadAllTargets -- 1.7.10.4