diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_compile/tc217.hs')
-rw-r--r-- | testsuite/tests/typecheck/should_compile/tc217.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/typecheck/should_compile/tc217.hs b/testsuite/tests/typecheck/should_compile/tc217.hs index c42c1eb33b..9835da8df1 100644 --- a/testsuite/tests/typecheck/should_compile/tc217.hs +++ b/testsuite/tests/typecheck/should_compile/tc217.hs @@ -12,9 +12,9 @@ instance Eq (a -> b) where instance Show (a -> b) where show = const "<fun>" --- This is the example from Trac #179 +-- This is the example from #179 foo x = show (\_ -> True) --- This is the example from Trac #963 +-- This is the example from #963 instance (Num a, Monad m, Eq (m a), Show (m a)) => Num (m a) where test = 1 True |