diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T4203.hs')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T4203.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T4203.hs b/testsuite/tests/simplCore/should_compile/T4203.hs index 3bf9259544..62e1957529 100644 --- a/testsuite/tests/simplCore/should_compile/T4203.hs +++ b/testsuite/tests/simplCore/should_compile/T4203.hs @@ -32,11 +32,10 @@ instance Functor Gen where fmap = liftM instance Applicative Gen where - pure = return + pure = Gen (<*>) = ap instance Monad Gen where - return a = Gen a Gen m >>= k = Gen (let Gen m' = k m in m') class Arbitrary a where |