-- trac #2449

module A where

data D
    deriving Show