We should support the TypeData extension: ```haskell {-# LANGUAGE TypeData #-} module M where type data D a = MkD a type data F a where MkF :: F Int ```