/usr/web/sources/contrib/fernan/nhc98/src/libraries/Cabal/tests/recursive/B.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/libraries/Cabal/tests/recursive/B.hs


module B where
import {-# SOURCE #-} A( TA(..) )
    
data TB = MkTB !Int

g :: TA -> TB
g (MkTA x) = MkTB x