Fix UtilSpec
This commit is contained in:
parent
ad3a42844d
commit
1d015019c9
@ -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 ""
|
||||||
|
Loading…
Reference in New Issue
Block a user