module X
  ( {-# DEPRECATE D(D1) "D1 will not be exposed in a version 0.2 and later" #-}
    D (D1, D2),
  )
where

data D = D1 | D2