From: simonpj@microsoft.com <unknown>
Date: Wed, 18 Aug 2010 18:57:38 +0000 (+0000)
Subject: Wibble
X-Git-Tag: 2010-11-18~389
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ebff59fc35239fffad714f5414e83208ccd2a458;hp=9c83ea50dcfb5c5ada888cf956560df641afb130;p=ghc-hetmet.git

Wibble
---

diff --git a/compiler/types/TypeRep.lhs b/compiler/types/TypeRep.lhs
index 74e0bdf..8322e9d 100644
--- a/compiler/types/TypeRep.lhs
+++ b/compiler/types/TypeRep.lhs
@@ -449,7 +449,7 @@ pprClassPred :: Class -> [Type] -> SDoc
 pprClassPred clas tys = ppr_type_app TopPrec (getName clas) tys
 
 pprTheta :: ThetaType -> SDoc
-pprTheta [pred] = pprPred pred
+-- pprTheta [pred] = pprPred pred	 -- I'm in two minds about this
 pprTheta theta  = parens (sep (punctuate comma (map pprPred theta)))
 
 pprThetaArrow :: ThetaType -> SDoc