From cbd8214e5a7932f3ad3b1bbab108772e6ed53bb9 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 21 Aug 2001 08:59:41 +0000
Subject: [PATCH] [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).

---
 ghc/compiler/types/TyCon.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4