diff options
| author | hallgren <hallgren@chalmers.se> | 2014-02-04 13:47:37 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-02-04 13:47:37 +0000 |
| commit | edeb094cf5dcde5d444adf2cdbd72a86f8aade2c (patch) | |
| tree | 6ba5a1f516a2a92ecc61eeb58d482264ceda50c4 /src/runtime/haskell/PGF/Optimize.hs | |
| parent | 9df56550cd898c34c26cb92bab388e5e4ebb2739 (diff) | |
PGF.Optimize: one more fix for unsafeFreeze
Diffstat (limited to 'src/runtime/haskell/PGF/Optimize.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Optimize.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell/PGF/Optimize.hs b/src/runtime/haskell/PGF/Optimize.hs index db5795244..3f7a2e7f7 100644 --- a/src/runtime/haskell/PGF/Optimize.hs +++ b/src/runtime/haskell/PGF/Optimize.hs @@ -11,7 +11,7 @@ import PGF.Macros import Data.List (mapAccumL) import Data.Array.IArray import Data.Array.MArray -import Data.Array.Unsafe(unsafeFreeze) +import Data.Array.Unsafe as U(unsafeFreeze) import Data.Array.ST import Data.Array.Unboxed import qualified Data.Map as Map @@ -124,7 +124,7 @@ topDownFilter startCat cnc = done (cat,indices) = do (s,e) <- getBounds indices reindex indices s e 0 - indices <- unsafeFreeze indices + indices <- U.unsafeFreeze indices return (cat,indices) reindex indices i j k |