msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

PGF.Optimize: one more fix for unsafeFreeze

Browse Source
This commit is contained in:
hallgren
2014-02-04 13:47:37 +00:00
parent 9df56550cd
commit edeb094cf5
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell/PGF/Optimize.hs
View File

@@ -11,7 +11,7 @@ import PGF.Macros
import Data.List (mapAccumL) import Data.List (mapAccumL)
import Data.Array.IArray import Data.Array.IArray
import Data.Array.MArray import Data.Array.MArray
import Data.Array.Unsafe(unsafeFreeze) import Data.Array.Unsafe as U(unsafeFreeze)
import Data.Array.ST import Data.Array.ST
import Data.Array.Unboxed import Data.Array.Unboxed
import qualified Data.Map as Map import qualified Data.Map as Map
@@ -124,7 +124,7 @@ topDownFilter startCat cnc =
done (cat,indices) = do done (cat,indices) = do
(s,e) <- getBounds indices (s,e) <- getBounds indices
reindex indices s e 0 reindex indices s e 0
indices <- unsafeFreeze indices indices <- U.unsafeFreeze indices
return (cat,indices) return (cat,indices)
reindex indices i j k reindex indices i j k