diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_compile/T16312.hs')
-rw-r--r-- | testsuite/tests/typecheck/should_compile/T16312.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/typecheck/should_compile/T16312.hs b/testsuite/tests/typecheck/should_compile/T16312.hs index 1823d98558..a18f38df61 100644 --- a/testsuite/tests/typecheck/should_compile/T16312.hs +++ b/testsuite/tests/typecheck/should_compile/T16312.hs @@ -9,6 +9,6 @@ instance Functor g => Functor (Curried g h) where fmap f (Curried g) = Curried (g . fmap (.f)) instance (Functor g, g ~ h) => Applicative (Curried g h) where - pure a = Curried (fmap ($a)) + pure a = Curried (fmap ($ a)) Curried mf <*> Curried ma = Curried (ma . mf . fmap (.)) {-# INLINE (<*>) #-} |