pretty printing of qualified identifiers

This commit is contained in:
krasimir
2009-01-23 06:11:41 +00:00
parent 62a6156405
commit b10c9c0f83

View File

@@ -160,6 +160,8 @@ ppTerm d (LiT id) = text "Lin" <+> ppIdent id
ppTerm d (P t l) = prec d 5 (ppTerm 5 t <> char '.' <> ppLabel l)
ppTerm d (Cn id) = ppIdent id
ppTerm d (Vr id) = ppIdent id
ppTerm d (Q m id) = ppIdent m <> char '.' <> ppIdent id
ppTerm d (QC m id) = ppIdent m <> char '.' <> ppIdent id
ppTerm d (Sort id) = ppIdent id
ppTerm d (K s) = text (show s)
ppTerm d (EInt n) = integer n