[use new associative pretty printer
John Meacham <john@repetae.net>**20090224042711
 Ignore-this: 163c1be7055ea97a864e78e22fe0934a
] hunk ./C/Prims.hs 142
-    pprintPrec n (APrim p _) = pprintPrec n p
+    pprintAssoc a n (APrim p _) = pprintAssoc a n p
hunk ./C/Prims.hs 164
-    pprintPrec n p = text (showsPrec n p "")
+    pprintAssoc _ n p = text (showsPrec n p "")
hunk ./C/Prims.hs 166
-    pprintPrec n p = text (showsPrec n p "")
+    pprintAssoc _ n p = text (showsPrec n p "")
hunk ./E/Show.hs 53
-    pprintPrec n x | n <= 9    = prettyE (ELit x)
-                   | otherwise = parens (prettyE (ELit x))
+    pprintAssoc _ n x | n <= 9    = prettyE (ELit x)
+                      | otherwise = parens (prettyE (ELit x))
hunk ./FrontEnd/Class.hs 210
-        putStrLn $ "class: " ++ hsep (pprint cname:map pprint args)
+        putStrLn $ "class: " ++ hsep (pprint cname:map pprintParen args)
hunk ./FrontEnd/Tc/Kind.hs 22
-import Doc.PPrint(pprint,pprintPrec,PPrint)
+import Doc.PPrint(pprint,pprintPrec,pprintAssoc,Assoc(..),PPrint,pprintBinary)
hunk ./FrontEnd/Tc/Kind.hs 156
-   pprintPrec _ (KBase b) = pprint b
-   pprintPrec _ (KVar kindVar)   = pprint kindVar
-   pprintPrec p k | p > 9 = parens $ pprint k
-   pprintPrec _ (Kfun k1 k2) = pprintPrec 10 k1 <+> text "->" <+> pprint k2
+   pprintAssoc _ _ (KBase b) = pprint b
+   pprintAssoc _ _ (KVar kindVar)   = pprint kindVar
+   pprintAssoc a n (Kfun k1 k2) = pprintBinary AssocRight 5 a n k1 (text "->") k2 -- checkAssoc AssocRight 5 a n $ pprintPrec 5 k1 <+> text "->" <+> pprintAssoc AssocRight 5 k2
hunk ./Ho/Build.hs 112
-    pprintPrec _ h = tshow h
+    pprint h = tshow h