Fix tests

This commit is contained in:
Daniel Gröber
2015-09-14 10:11:33 +02:00
parent 5b02cc1bb0
commit 0aa3655e08
3 changed files with 20 additions and 13 deletions

View File

@@ -9,7 +9,7 @@ spec = do
describe "When using GhcModT in a do block" $
it "a pattern match failure causes a call to `fail` on ErrorT in the monad stack" $ do
(a, _h)
<- runGhcModT defaultOptions $
<- runGmOutDef $ runGhcModT defaultOptions $
do
Just _ <- return Nothing
return "hello"