Fix UtilSpec

This commit is contained in:
Daniel Gröber 2014-08-19 05:06:36 +02:00
parent ad3a42844d
commit 1d015019c9

View File

@ -16,7 +16,7 @@ spec = do
describe "liftMonadError" $ do describe "liftMonadError" $ do
it "converts IOErrors to GhcModError" $ do it "converts IOErrors to GhcModError" $ do
shouldReturnError $ shouldReturnError $
runD' $ liftMonadError $ throw (userError "hello") >> return "" runD' $ liftIOExceptions $ throw (userError "hello") >> return ""
shouldReturnError $ shouldReturnError $
runD' $ liftMonadError $ readFile "/DOES_NOT_EXIST" >> return "" runD' $ liftIOExceptions $ readFile "/DOES_NOT_EXIST" >> return ""