diff options
Diffstat (limited to 'ghc/compiler/prelude/PrimOp.lhs')
| -rw-r--r-- | ghc/compiler/prelude/PrimOp.lhs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs index 4b4f0cc1f2..c087f391d9 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" @@ -477,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} |