X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelInfo.lhs;h=5bbd2a5a40911375df9e83c49b6cc9dad4de5ba5;hb=0a4e3ee6a32f3c3bcabcdccf62e4768219fc12fa;hp=33022296a4377c646d5ed28819bd7a67ce829d89;hpb=68d47df35cbf143ec2f458e066f9970ecccebe7d;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 3302229..5bbd2a5 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -51,7 +51,7 @@ module PrelInfo (
 	ltH_Float_RDR, eqH_Double_RDR, ltH_Double_RDR, eqH_Int_RDR, 
 	ltH_Int_RDR, geH_RDR, leH_RDR, minusH_RDR, false_RDR, true_RDR,
 	and_RDR, not_RDR, append_RDR, map_RDR, compose_RDR, mkInt_RDR,
-	error_RDR, assertErr_RDR, getTag_RDR,
+	error_RDR, assertErr_RDR, getTag_RDR, tagToEnumH_RDR,
 	showString_RDR, showParen_RDR, readParen_RDR, lex_RDR,
 	showSpace_RDR, showList___RDR, readList___RDR, negate_RDR,
 
@@ -567,6 +567,7 @@ ltH_Int_RDR	= prelude_primop IntLtOp
 geH_RDR		= prelude_primop IntGeOp
 leH_RDR		= prelude_primop IntLeOp
 minusH_RDR	= prelude_primop IntSubOp
+tagToEnumH_RDR	= prelude_primop TagToEnumOp
 
 getTag_RDR	= varQual pREL_GHC SLIT("getTag#")
 \end{code}