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

[ghc-hetmet.git] / ghc / compiler / types / TyCon.lhs

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index fb48222..17ffb0e 100644 (file)
--- 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}