testsuite/tests/deriving/should_run/drvrun008.hs


1
2
3
4
5
6
7
8

-- !!! Check that -funbox-strict-fields doesn't mess up deriving (can't be in an options pragma, it's in the Makefile)
-- !!!  (it did in 4.04)

module Main( main ) where

data X = X !Int deriving Eq

main = putStrLn (show (X 2 == X 2))