Use strict-containers for IntMaps

2022-07-21 15:27:00 +01:00
parent 22787abf8f
commit cf5ec4a261
92 changed files with 103 additions and 98 deletions
@@ -13,7 +13,7 @@ import Dodge.Creature.Test
 import Dodge.LevelGen.Switch

 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM

 putDoubleDoor :: EdgeObstacle -> Wall -> (World -> Bool)  -> Point2 -> Point2 -> Float -> Placement
 putDoubleDoor eo wl cond a b speed 
@@ -1,7 +1,7 @@
 module Dodge.Placement.Instance.LightSource.Flicker where
 import Dodge.LevelGen.Data
 import Dodge.Data
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import Data.Maybe
 import Control.Lens
 import System.Random