X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FType.lhs;h=ccd8af7944c285a9a472f44bb42e13568cdcda3c;hb=d43851fcc610fd2c01e8e4770c243a69b6c10dfd;hp=8271ce32f389168eac64f3219f2002b90aef3ae9;hpb=a5d4d171bc1ab7c48a33e55f577fc04f9c40a895;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Type.lhs b/ghc/compiler/types/Type.lhs
index 8271ce3..ccd8af7 100644
--- a/ghc/compiler/types/Type.lhs
+++ b/ghc/compiler/types/Type.lhs
@@ -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}