X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrimOp.lhs;h=c087f391d94998a3f83c35087cf9721192c07467;hb=beb438b9aaf9ccdd57d36201665fa26ff82a7385;hp=99323ce421d0f164d4d3cce1fc8567338f6a06f3;hpb=979947f545d70c63edb7ca96f6e47008ac90e3bf;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 99323ce..c087f39 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -15,7 +15,9 @@ module PrimOp (
 	primOpOkForSpeculation, primOpIsCheap, primOpIsDupable,
 	primOpHasSideEffects,
 
-	getPrimOpResultInfo,  PrimOpResultInfo(..)
+	getPrimOpResultInfo,  PrimOpResultInfo(..),
+
+	eqCharName, eqIntName, eqFloatName, eqDoubleName, neqIntName,
     ) where
 
 #include "HsVersions.h"
@@ -30,15 +32,12 @@ import Name		( Name, mkWiredInName )
 import RdrName		( RdrName, mkRdrOrig )
 import OccName		( OccName, pprOccName, mkVarOcc )
 import TyCon		( TyCon, isPrimTyCon, tyConPrimRep )
-import Type		( Type, mkForAllTys, mkFunTy, mkFunTys, typePrimRep,
-			  splitFunTy_maybe, tyConAppTyCon, splitTyConApp
-			)
+import Type		( Type, mkForAllTys, mkFunTy, mkFunTys, typePrimRep, tyConAppTyCon )
 import PprType          () -- get at Outputable Type instance.
 import Unique		( mkPrimOpIdUnique )
 import BasicTypes	( Arity, Boxity(..) )
 import PrelNames	( pREL_GHC, pREL_GHC_Name )
 import Outputable
-import Util		( zipWithEqual )
 import FastTypes
 \end{code}
 
@@ -480,4 +479,12 @@ pprPrimOp other_op
     occ = primOpOcc other_op
 \end{code}
 
+Names for some primops (for ndpFlatten/FlattenMonad.lhs)
 
+\begin{code}
+eqCharName	  = mkPrimOpIdName CharEqOp
+eqIntName	  = mkPrimOpIdName IntEqOp
+eqFloatName	  = mkPrimOpIdName FloatEqOp
+eqDoubleName	  = mkPrimOpIdName DoubleEqOp
+neqIntName	  = mkPrimOpIdName IntNeOp
+\end{code}