Follow changes in haskeline
authorIan Lynagh <igloo@earth.li>
Sun, 6 May 2012 19:01:00 +0000 (20:01 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 6 May 2012 19:01:00 +0000 (20:01 +0100)
I'm not sure if we still need to encode the error, but validate is happy
with this fix, at least.

ghc/InteractiveUI.hs

index 9b28d0a..225071e 100644 (file)
@@ -55,7 +55,6 @@ import Util ( on, global, toArgs, toCmdArgs, removeSpaces, getCmd,
 
 -- Haskell Libraries
 import System.Console.Haskeline as Haskeline
-import qualified System.Console.Haskeline.Encoding as Encoding
 
 import Control.Applicative hiding (empty)
 import Control.Monad as Monad
@@ -187,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 -> Encoding.encode err >>= liftIO . BS.hPutStrLn stderr
+          Left err -> hPutStrLn stderr err
           Right args -> a args
       return False