String pattern handling

This commit is contained in:
aarne
2004-03-23 12:06:12 +00:00
parent dc65a16767
commit 8f829331f6
5 changed files with 8 additions and 3 deletions

View File

@@ -163,6 +163,7 @@ trp p = case p of
PP p c [] -> P.PQ (tri p) (tri c)
PP p c a -> P.PQC (tri p) (tri c) (map trp a)
PR r -> P.PR [P.PA [trLabelIdent l] (trp p) | (l,p) <- r]
PString s -> P.PStr s
---- PT t p -> prt p ---- prParenth (prt p +++ ":" +++ prt t)