X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2FPrimOp.lhs;fp=compiler%2Fprelude%2FPrimOp.lhs;h=dae8bee840ae8766d3221f4f15e188da2dd3d1dd;hp=a65035228096c09f8408f3a2c8fe8fa8a688547b;hb=c938c386fe84f9203c992bb35508c7a5b35bb22c;hpb=c55001c567b4f6e17f7a0c174c003318aac6a8ed

diff --git a/compiler/prelude/PrimOp.lhs b/compiler/prelude/PrimOp.lhs
index a650352..dae8bee 100644
--- a/compiler/prelude/PrimOp.lhs
+++ b/compiler/prelude/PrimOp.lhs
@@ -9,6 +9,8 @@ module PrimOp (
 	primOpType, primOpSig,
 	primOpTag, maxPrimOpTag, primOpOcc,
 
+	tagToEnumKey,
+
 	primOpOutOfLine, primOpNeedsWrapper, 
 	primOpOkForSpeculation, primOpIsCheap, primOpIsDupable,
 
@@ -27,6 +29,7 @@ import TyCon		( TyCon, isPrimTyCon, tyConPrimRep, PrimRep(..) )
 import Type		( Type, mkForAllTys, mkFunTy, mkFunTys, tyConAppTyCon,
 			  typePrimRep )
 import BasicTypes	( Arity, Boxity(..) )
+import Unique		( Unique, mkPrimOpIdUnique )
 import Outputable
 import FastTypes
 \end{code}
@@ -84,6 +87,13 @@ allThePrimOps =
 #include "primop-list.hs-incl"
 \end{code}
 
+\begin{code}
+tagToEnumKey :: Unique
+tagToEnumKey = mkPrimOpIdUnique (primOpTag TagToEnumOp)
+\end{code}
+
+
+
 %************************************************************************
 %*									*
 \subsection[PrimOp-info]{The essential info about each @PrimOp@}