Commit fe02d521 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-05-12 09:18:21 by simonmar]

versionitis: pre-4.06 GHCs didn't have PrelAddr.intToWord
parent f2eda367
......@@ -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}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment