Commit fcb19dbd authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Follow changes in haskeline

I'm not sure if we still need to encode the error, but validate is happy
with this fix, at least.
parent 9949db0a
......@@ -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
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