Commit 6af8d617 authored by Simon Marlow's avatar Simon Marlow

fix some #ifdefs that were making compilation with 7.2.1 fail - the

safified array package is not in 7.2.1
parent f6f04307
......@@ -49,7 +49,7 @@ import qualified Data.Map as Map
import Data.Word
-- castSTUArray has moved to Data.Array.Unsafe
#if __GLASGOW_HASKELL__ >= 701
#if __GLASGOW_HASKELL__ >= 703
import Data.Array.Unsafe( castSTUArray )
import Data.Array.ST hiding( castSTUArray )
#else
......
......@@ -40,13 +40,7 @@ import Control.Monad.ST ( runST )
import Data.Array.MArray
import Data.Array.Unboxed ( listArray )
import Data.Array.Base ( UArray(..) )
-- castSTUArray has moved to Data.Array.Unsafe
#if __GLASGOW_HASKELL__ >= 701
import Data.Array.Unsafe( castSTUArray )
#else
import Data.Array.ST ( castSTUArray )
#endif
import Foreign
import Data.Char ( ord )
......
......@@ -22,7 +22,7 @@ import CLabel
import Pretty
-- castSTUArray has moved to Data.Array.Unsafe
#if __GLASGOW_HASKELL__ >= 701
#if __GLASGOW_HASKELL__ >= 703
import Data.Array.Unsafe( castSTUArray )
import Data.Array.ST hiding( castSTUArray )
#else
......
Markdown is supported
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