Commit d43851fc authored by simonmar's avatar simonmar
Browse files

[project @ 1999-07-30 11:26:09 by simonmar]

typePrimRep should work on the repType, avoiding foralls etc.
parent a5d4d171
......@@ -872,7 +872,7 @@ isNewType ty = case splitTyConApp_maybe ty of
other -> False
typePrimRep :: Type -> PrimRep
typePrimRep ty = case splitTyConApp_maybe ty of
typePrimRep ty = case splitTyConApp_maybe (repType ty) of
Just (tc, ty_args) -> tyConPrimRep tc
other -> PtrRep
\end{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