X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypes%2FTypeRep.lhs;fp=compiler%2Ftypes%2FTypeRep.lhs;h=74e0bdf37550f4c5a62f78a6bef0a9f6db64d5ce;hp=55beb28da186117bcb58638c9309eddb7ec64bf7;hb=9c83ea50dcfb5c5ada888cf956560df641afb130;hpb=9d193eceb5f287ac3dfa90b40e22d9c992cf9f66

diff --git a/compiler/types/TypeRep.lhs b/compiler/types/TypeRep.lhs
index 55beb28..74e0bdf 100644
--- a/compiler/types/TypeRep.lhs
+++ b/compiler/types/TypeRep.lhs
@@ -449,7 +449,8 @@ pprClassPred :: Class -> [Type] -> SDoc
 pprClassPred clas tys = ppr_type_app TopPrec (getName clas) tys
 
 pprTheta :: ThetaType -> SDoc
-pprTheta theta = parens (sep (punctuate comma (map pprPred theta)))
+pprTheta [pred] = pprPred pred
+pprTheta theta  = parens (sep (punctuate comma (map pprPred theta)))
 
 pprThetaArrow :: ThetaType -> SDoc
 pprThetaArrow []     = empty