diff options
Diffstat (limited to 'compiler/basicTypes/ConLike.hs')
| -rw-r--r-- | compiler/basicTypes/ConLike.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/compiler/basicTypes/ConLike.hs b/compiler/basicTypes/ConLike.hs index a9d7548b8a..9d3ae5798f 100644 --- a/compiler/basicTypes/ConLike.hs +++ b/compiler/basicTypes/ConLike.hs @@ -9,6 +9,8 @@ module ConLike ( ConLike(..) + , isRealDataCon + , isPatSynCon , conLikeArity , conLikeFieldLabels , conLikeInstOrigArgTys @@ -53,6 +55,14 @@ import qualified Data.Data as Data data ConLike = RealDataCon DataCon | PatSynCon PatSyn +isRealDataCon :: ConLike -> Bool +isRealDataCon RealDataCon{} = True +isRealDataCon _ = False + +isPatSynCon :: ConLike -> Bool +isPatSynCon PatSynCon{} = True +isPatSynCon _ = False + {- ************************************************************************ * * |