blob: b2ee82d4bcc234bc05c6fa512c3b911fbed259c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- This test checks that constructors with strictness annotations
-- at least parse correctly. In GHC 2.02 they didn't!
module Main where
data Foo1 = Crunch1 ! Int ! Int Int deriving( Show )
data Foo2 = Crunch2 ! Int Int Int deriving( Show )
main = do
print (Crunch1 (1+1) (2+2) (3+3))
print (Crunch2 (1+1) (2+2) (3+3))
|
