diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_run/Defer01.hs')
-rwxr-xr-x | testsuite/tests/typecheck/should_run/Defer01.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/testsuite/tests/typecheck/should_run/Defer01.hs b/testsuite/tests/typecheck/should_run/Defer01.hs index 368db9873f..f6c69dcfa7 100755 --- a/testsuite/tests/typecheck/should_run/Defer01.hs +++ b/testsuite/tests/typecheck/should_run/Defer01.hs @@ -30,10 +30,10 @@ d = 1 e = 'p' f = e 'q' -h :: a -> (Char,Char) +h :: a -> (Char,Char) h x = (x,'c') -data T a where +data T a where K :: a -> T a i a = seq (not (K a)) () @@ -48,6 +48,5 @@ k x = x l :: IO () l = putChar >> putChar 'p' - main :: IO () main = print "No errors!" |