compiler/basicTypes/ConLike.hs-boot


1
2
3
4
5
6
7
8
9

module ConLike where
import {-# SOURCE #-} DataCon (DataCon)
import {-# SOURCE #-} PatSyn (PatSyn)
import Name ( Name )

data ConLike = RealDataCon DataCon
             | PatSynCon PatSyn

conLikeName :: ConLike -> Name