From: simonmar <unknown>
Date: Tue, 21 Aug 2001 08:59:41 +0000 (+0000)
Subject: [project @ 2001-08-21 08:59:41 by simonmar]
X-Git-Tag: Approximately_9120_patches~1165
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cbd8214e5a7932f3ad3b1bbab108772e6ed53bb9;p=ghc-hetmet.git

[project @ 2001-08-21 08:59:41 by simonmar]
Add a case so that tyConTheta works for tuples (made this change
earlier but forgot to commit it - it fixes the panic when you do :info
() in GHCi).
---

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 17ffb0e..eb77346 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -475,7 +475,8 @@ tyConPrimRep tc			              = ASSERT( not (isUnboxedTupleTyCon tc) )
 \begin{code}
 tyConTheta :: TyCon -> [PredType]
 tyConTheta (AlgTyCon {algTyConTheta = theta}) = theta
--- should ask about anything else
+tyConTheta (TupleTyCon {}) = []
+-- shouldn't ask about anything else
 \end{code}
 
 @tyConArgVrcs_maybe@ gives a list of (occPos,occNeg) flags, one for