diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_run/T17744A.hs')
| -rw-r--r-- | testsuite/tests/simplCore/should_run/T17744A.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/testsuite/tests/simplCore/should_run/T17744A.hs b/testsuite/tests/simplCore/should_run/T17744A.hs index 69e18f0ea4..63868a8573 100644 --- a/testsuite/tests/simplCore/should_run/T17744A.hs +++ b/testsuite/tests/simplCore/should_run/T17744A.hs @@ -17,10 +17,9 @@ instance Functor (Parser t) where fmap f p = apply (fmap f) p instance Applicative (Parser t) where - pure = return + pure = Result mempty instance Monad (Parser t) where - return = Result mempty Result s r >>= f = feed s (f r) p >>= f = apply (>>= f) p |