X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelRules.lhs;h=2ede4e3d046974af61ccf4a0b1d0f8ef6ee51320;hb=fe02d5213c517e35926a5e428bfba7297c99e49b;hp=170f924fb8af083b80f219fdacc184a1508d52b8;hpb=f2eda36747e019fbf2e546f80a24c5e231e12460;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs
index 170f924..2ede4e3 100644
--- a/ghc/compiler/prelude/PrelRules.lhs
+++ b/ghc/compiler/prelude/PrelRules.lhs
@@ -33,9 +33,18 @@ import ThinAir		( unpackCStringFoldrId )
 import Maybes		( maybeToBool )
 import Char		( ord, chr )
 import Bits		( Bits(..) )
-import PrelAddr		( intToWord, wordToInt )
+import PrelAddr		( wordToInt )
 import Word		( Word64 )
 import Outputable
+
+#if __GLASGOW_HASKELL__ > 404
+import PrelAddr ( intToWord )
+#else
+import PrelAddr ( Word(..) )
+import PrelGHC  ( int2Word# )
+intToWord :: Int -> Word
+intToWord (I# i#) = W# (int2Word# i#)
+#endif
 \end{code}