pp_thing (AGlobal (AnId _)) = ptext SLIT("Identifier")
pp_thing (AGlobal (ADataCon _)) = ptext SLIT("Data constructor")
pp_thing (ATyVar _) = ptext SLIT("Type variable")
pp_thing (AGlobal (AnId _)) = ptext SLIT("Identifier")
pp_thing (AGlobal (ADataCon _)) = ptext SLIT("Data constructor")
pp_thing (ATyVar _) = ptext SLIT("Type variable")