GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki 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 8a5ade8897
commit abfd4b9c96
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