From: simonpj <unknown>
Date: Mon, 20 Aug 2001 16:48:50 +0000 (+0000)
Subject: [project @ 2001-08-20 16:48:50 by simonpj]
X-Git-Tag: Approximately_9120_patches~1168
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=014170298065b672ee5664c34cb44dba1f736346;p=ghc-hetmet.git

[project @ 2001-08-20 16:48:50 by simonpj]
Add assertion
---

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index fb48222..17ffb0e 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -466,7 +466,10 @@ tyConSelIds other_tycon		       = []
 \begin{code}
 tyConPrimRep :: TyCon -> PrimRep
 tyConPrimRep (PrimTyCon {primTyConRep = rep}) = rep
-tyConPrimRep _			              = PtrRep
+tyConPrimRep tc			              = ASSERT( not (isUnboxedTupleTyCon tc) )
+						PtrRep
+	-- We should not be asking what the representation of an
+	-- unboxed tuple is, because it isn't a first class value.
 \end{code}
 
 \begin{code}