Commit 01417029 authored by simonpj's avatar simonpj
Browse files

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

Add assertion
parent 9035ad45
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment