ghc/tests/deriving/should_run/drvrun008.hs

   1 -- !!! Check that -funbox-strict-fields doesn't mess up deriving (can't be in an options pragma, it's in the Makefile)
   2 -- !!!  (it did in 4.04)
   3
   4 module Main( main ) where
   5
   6 data X = X !Int deriving Eq
   7
   8 main = putStrLn (show (X 2 == X 2))