X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FFastMutInt.lhs;h=3c2a199198fc8a2f277f5e85f7b5d2c2de5b808d;hb=b1ab4b8a607addc4d097588db5761313c996a41f;hp=b483a1428edf30bc592e3fd9e4361d8f25447054;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs index b483a14..3c2a199 100644 --- a/compiler/utils/FastMutInt.lhs +++ b/compiler/utils/FastMutInt.lhs @@ -1,6 +1,6 @@ {-# OPTIONS -cpp #-} -- --- (c) The University of Glasgow 2002 +-- (c) The University of Glasgow 2002-2006 -- -- Unboxed mutable Ints @@ -17,17 +17,8 @@ module FastMutInt( #endif -#if __GLASGOW_HASKELL__ < 503 -import GlaExts -import PrelIOBase -#else import GHC.Base import GHC.IOBase -#endif - -#if __GLASGOW_HASKELL__ < 411 -newByteArray# = newCharArray# -#endif \end{code} \begin{code}