ghc/tests/programs/strict_anns/Main.hs

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