ghc/tests/deriving/should_run/drvrun008.hs

   1 {-# OPTIONS -funbox-strict-fields #-}
   2 -- !!! Check that -funbox-strict-fields doesn't mess up deriving
   3 -- !!!  (it did in 4.04)
   4
   5 module Main( main ) where
   6
   7 data X = X !Int deriving Eq
   8
   9 main = putStrLn (show (X 2 == X 2))