Commit 92a5f4ab authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Replace an outputStr with putStrLn calls; fixes #4332

parent adf986b4
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment