1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE MagicHash, DeriveDataTypeable #-} module T2700 where import GHC.Prim import Data.Data import Data.Typeable data Foo = MkFoo Int# deriving (Typeable, Data)