[made pretty printer a bit more flexible
mail@stefanwehr.de**20050929093444] {
hunk ./Phrac/ParseSyntax.hs 686
-        text "<" <> pprList ", " (map pprPair l) <> text "> " <> ppr e
+        text "<" <> pprList ", " (map (pprPair ", ") l) <> text "> " <> ppr e
hunk ./Phrac/Pretty.hs 79
-pprPair :: (Pretty p, Pretty q) => (p, q) -> Doc
-pprPair (p, q) = parens (ppr p <> comma <+> ppr q)
+pprPair :: (Pretty p, Pretty q) => String -> (p, q) -> Doc
+pprPair s (p, q) = parens (ppr p <> text s <> ppr q)
}