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

Build fix

parent fcb19dbd
......@@ -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
......
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