[small fix for the pretty printer
mail@stefanwehr.de**20051001130836] {
hunk ./Phrac/ParseSyntax.hs 696
-        text "<" <> pprList ", " (map (pprPair ", ") l) <> text "> " <> ppr e
+        text "<" <> pprList ", " (map pprPair l) <> text "> " <> ppr e
hunk ./Phrac/Pretty.hs 25
-    dumpMap,
+    pprPair', dumpMap,
hunk ./Phrac/Pretty.hs 79
-pprPair :: (Pretty p, Pretty q) => String -> (p, q) -> Doc
-pprPair s (p, q) = parens (ppr p <> text s <> ppr q)
+pprPair :: (Pretty p, Pretty q) => (p, q) -> Doc
+pprPair (p, q) = parens (ppr p <> text ", " <> ppr q)
+
+pprPair' :: (Pretty p, Pretty q) => String -> (p, q) -> Doc
+pprPair' s (p, q) = (ppr p <> text s <> ppr q)
}