1 2 3 4 5 6 7 8
module A where import B (TB (..)) newtype TA = MkTA Int f :: TB -> TA f (MkTB x) = MkTA x