diff options
| author | hallgren <hallgren@chalmers.se> | 2014-02-10 21:44:34 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-02-10 21:44:34 +0000 |
| commit | c9af5d11c0d46c2c817ef4bf7a9d68c77d05d995 (patch) | |
| tree | 7de567c9e198f2eeebbfe0549b7151324c200660 /src/runtime/haskell | |
| parent | 60980d16176f5f3a70ceb32d7a4975a73deded9f (diff) | |
Restore compatibility with GHC 7.0
Diffstat (limited to 'src/runtime/haskell')
| -rw-r--r-- | src/runtime/haskell/PGF/Optimize.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Optimize.hs b/src/runtime/haskell/PGF/Optimize.hs index 3f7a2e7f7..6944eb209 100644 --- a/src/runtime/haskell/PGF/Optimize.hs +++ b/src/runtime/haskell/PGF/Optimize.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP, BangPatterns #-} module PGF.Optimize ( optimizePGF , updateProductionIndices @@ -11,7 +11,11 @@ import PGF.Macros import Data.List (mapAccumL) import Data.Array.IArray import Data.Array.MArray +#if MIN_VERSION_base(4,6,0) import Data.Array.Unsafe as U(unsafeFreeze) +#else +import Data.Array.ST as U(unsafeFreeze) +#endif import Data.Array.ST import Data.Array.Unboxed import qualified Data.Map as Map |