From 014170298065b672ee5664c34cb44dba1f736346 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 20 Aug 2001 16:48:50 +0000
Subject: [PATCH] [project @ 2001-08-20 16:48:50 by simonpj] Add assertion

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

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