From 1d015019c9091f7e24cacba960699bb057ecf0b3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Tue, 19 Aug 2014 05:06:36 +0200 Subject: [PATCH] Fix UtilSpec --- test/UtilsSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/UtilsSpec.hs b/test/UtilsSpec.hs index a8e193c..8073f1f 100644 --- a/test/UtilsSpec.hs +++ b/test/UtilsSpec.hs @@ -16,7 +16,7 @@ spec = do describe "liftMonadError" $ do it "converts IOErrors to GhcModError" $ do shouldReturnError $ - runD' $ liftMonadError $ throw (userError "hello") >> return "" + runD' $ liftIOExceptions $ throw (userError "hello") >> return "" shouldReturnError $ - runD' $ liftMonadError $ readFile "/DOES_NOT_EXIST" >> return "" + runD' $ liftIOExceptions $ readFile "/DOES_NOT_EXIST" >> return ""