[project @ 2005-03-08 09:45:45 by simonpj]

Better printing of types; merge please

ghc/compiler/iface/IfaceType.lhs

@@ -308,9 +308,12 @@ instance Outputable IfaceTyCon where
 pprIfaceContext :: IfaceContext -> SDoc
 -- Prints "(C a, D b) =>", including the arrow
 pprIfaceContext []     = empty
-pprIfaceContext theta = parens (sep (punctuate comma (map ppr theta))) 
-			<+> ptext SLIT("=>")
+pprIfaceContext theta = ppr_preds theta <+> ptext SLIT("=>")
 
+ppr_preds [pred] = ppr pred	-- No parens
+ppr_preds preds  = parens (sep (punctuate comma (map ppr preds))) 
+			 
+-------------------
 pabrackets p = ptext SLIT("[:") <> p <> ptext SLIT(":]")
 \end{code}