X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcGenDeriv.lhs;fp=compiler%2Ftypecheck%2FTcGenDeriv.lhs;h=2c0b89df089dbcecf43e6aadb53df76b894300fb;hp=cc0adafbc8561623db58deed7951ed2a6e7e52af;hb=eabf04b78e41b2b4b614b3e8ee83a3eb0d2722d6;hpb=b9235325e1dfc23cc489aa478aef852e76c4075f

diff --git a/compiler/typecheck/TcGenDeriv.lhs b/compiler/typecheck/TcGenDeriv.lhs
index cc0adaf..2c0b89d 100644
--- a/compiler/typecheck/TcGenDeriv.lhs
+++ b/compiler/typecheck/TcGenDeriv.lhs
@@ -1689,7 +1689,7 @@ genAuxBind loc (GenTag2Con tycon)
 	   nlHsApp (nlHsVar tagToEnum_RDR) a_Expr)],
      L loc (TypeSig (L loc rdr_name) sig_ty))
   where
-    sig_ty = nlHsTyVar (getRdrName intPrimTyCon) 
+    sig_ty = nlHsTyVar (getRdrName intTyCon) 
              `nlHsFunTy` (nlHsTyVar (getRdrName tycon))
 
     rdr_name = tag2con_RDR tycon
@@ -1699,7 +1699,7 @@ genAuxBind loc (GenMaxTag tycon)
      L loc (TypeSig (L loc rdr_name) sig_ty))
   where
     rdr_name = maxtag_RDR tycon
-    sig_ty = nlHsTyVar (getRdrName intPrimTyCon) 
+    sig_ty = nlHsTyVar (getRdrName intTyCon) 
     rhs = nlHsApp (nlHsVar intDataCon_RDR) (nlHsLit (HsIntPrim max_tag))
     max_tag =  case (tyConDataCons tycon) of
 		 data_cons -> toInteger ((length data_cons) - fIRST_TAG)