diff options
Diffstat (limited to 'testsuite/tests/mdo')
| -rw-r--r-- | testsuite/tests/mdo/should_fail/mdofail004.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/testsuite/tests/mdo/should_fail/mdofail004.hs b/testsuite/tests/mdo/should_fail/mdofail004.hs index 929785423c..a313747e8a 100644 --- a/testsuite/tests/mdo/should_fail/mdofail004.hs +++ b/testsuite/tests/mdo/should_fail/mdofail004.hs @@ -19,11 +19,10 @@ instance Functor X where fmap = liftM instance Applicative X where - pure = return + pure = X (<*>) = ap instance Monad X where - return = X (X a) >>= f = f a z :: X [Int] |