1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE StandaloneDeriving, DeriveDataTypeable #-} module Foo( T ) where -- Trac 2378 import Data.Data newtype T f = MkT Int deriving instance Typeable T