- | isDataConWrapId id
- = hcat [ppr id, text " is a data constructor", showSrcLoc (idName id)]
- | otherwise
- = hcat [ppr id, text " is a variable", showSrcLoc (idName id)]
+ = hcat [ppr id, text " is a ", text (idDescr id), showSrcLoc (idName id)]
+
+ idDescr id
+ | isRecordSelector id = "record selector"
+ | isDataConWrapId id = "data constructor"
+ | otherwise = "variable"