Build fix
authorIan Lynagh <igloo@earth.li>
Sun, 6 May 2012 19:49:58 +0000 (20:49 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 6 May 2012 19:49:58 +0000 (20:49 +0100)
ghc/InteractiveUI.hs

index 225071e..1a80b49 100644 (file)
@@ -186,7 +186,7 @@ keepGoing' a str = a str >> return False
 keepGoingPaths :: ([FilePath] -> InputT GHCi ()) -> (String -> InputT GHCi Bool)
 keepGoingPaths a str
  = do case toArgs str of
-          Left err -> hPutStrLn stderr err
+          Left err -> liftIO $ hPutStrLn stderr err
           Right args -> a args
       return False