[commit: base] master: Port more primop rules to PrelRules. (f654e28)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f654e287be7e6a5fce296fc6c98fa16f838636fe

>---------------------------------------------------------------

commit f654e287be7e6a5fce296fc6c98fa16f838636fe
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Wed Jul 25 12:53:39 2012 +0100

    Port more primop rules to PrelRules.

>---------------------------------------------------------------

 GHC/Base.lhs |   13 -------------
 1 files changed, 0 insertions(+), 13 deletions(-)

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 8114a0e..b720348 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -714,19 +714,6 @@ iShiftRL# :: Int# -> Int# -> Int#
 a `iShiftRL#` b | b >=# WORD_SIZE_IN_BITS# = 0#
                 | otherwise                = a `uncheckedIShiftRL#` b
 
-#if WORD_SIZE_IN_BITS == 32
-{-# RULES
-"narrow32Int#"  forall x#. narrow32Int#   x# = x#
-"narrow32Word#" forall x#. narrow32Word#   x# = x#
-   #-}
-#endif
-
-{-# RULES
-"int2Word2Int"  forall x#. int2Word# (word2Int# x#) = x#
-"word2Int2Word" forall x#. word2Int# (int2Word# x#) = x#
-  #-}
-
-
 -- Rules for C strings (the functions themselves are now in GHC.CString)
 {-# RULES
 "unpack"       [~1] forall a   . unpackCString# a             = build (unpackFoldrCString# a)