[honor precedence in the type pprint instance
John Meacham <john@repetae.net>**20090224054101
 Ignore-this: b45bb9e706d9f098e8c22b040859fe7e
] hunk ./FrontEnd/Representation.hs 46
-import Doc.PPrint(pprint,PPrint)
+import Doc.PPrint
hunk ./FrontEnd/Representation.hs 236
-instance DocLike d => PPrint d Type where
-    pprint = prettyPrintType
hunk ./FrontEnd/Representation.hs 251
-prettyPrintType t  = unparse $ runIdentity (runVarNameT (f t)) where
+prettyPrintType = pprint
+
+
+instance DocLike d => PPrint d Type where
+    pprintAssoc _ n t = prettyPrintTypePrec n t
+
+prettyPrintTypePrec :: DocLike d => Int -> Type -> d
+prettyPrintTypePrec n t  = unparse $ zup (runIdentity (runVarNameT (f t))) where
+    zup = if n >= 10 then pop empty else id
hunk ./FrontEnd/Representation.hs 324
-    pprint (IsIn c t) = text (show c) <+> prettyPrintType t
+    pprint (IsIn c t) = tshow c <+> pprintParen t