X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrimOp.lhs;h=81c91cc4dbb47078f8929c0a070e7905dd0023f0;hb=98744cef7b82e7eefbb1c6f1d8b9e28c415939c4;hp=a9ac05613966e8325058523d1655bd01d08b734a;hpb=8abedd122bf6f96ce8151dc86dd2c7727b639de5;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index a9ac056..81c91cc 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -6,14 +6,11 @@
 \begin{code}
 module PrimOp (
 	PrimOp(..), allThePrimOps,
-	primOpType, primOpSig, primOpArity,
+	primOpType, primOpSig,
 	primOpTag, maxPrimOpTag, primOpOcc,
 
-	commutableOp,
-
 	primOpOutOfLine, primOpNeedsWrapper, 
 	primOpOkForSpeculation, primOpIsCheap, primOpIsDupable,
-	primOpHasSideEffects,
 
 	getPrimOpResultInfo,  PrimOpResultInfo(..)
     ) where
@@ -368,14 +365,6 @@ primOpNeedsWrapper :: PrimOp -> Bool
 \end{code}
 
 \begin{code}
-primOpArity :: PrimOp -> Arity
-primOpArity op 
-  = case (primOpInfo op) of
-      Monadic occ ty			  -> 1
-      Dyadic occ ty			  -> 2
-      Compare occ ty 			  -> 2
-      GenPrimOp occ tyvars arg_tys res_ty -> length arg_tys
-		
 primOpType :: PrimOp -> Type  -- you may want to use primOpSig instead
 primOpType op
   = case (primOpInfo op) of