{-# OPTIONS -dsuppress-idinfo -dsuppress-core-sizes #-} module M where data Foo = MkFoo deriving (Eq)