Use strict-containers for IntMaps

src/Dodge/Item/Attachment.hs

@@ -9,7 +9,7 @@ import Dodge.Default
 import Control.Lens hiding ((|>),(<|))
 import Data.Sequence
 import Data.Maybe
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 
 
 charFiringStratI

src/Dodge/Item/Consumable.hs

@@ -10,7 +10,7 @@ import Dodge.SoundLogic
 
 --import Data.Maybe
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 
 medkit :: Int -> Item
 medkit i = defaultConsumable

src/Dodge/Item/Draw.hs

@@ -12,7 +12,7 @@ import ShapePicture
 import Dodge.Item.Equipment.Shape
 import Dodge.Item.Draw.SPic
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import Control.Lens
 
 itemEquipPict :: Creature -> Item -> SPic

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -38,7 +38,7 @@ import LensHelp
 --import Data.List (sortOn)
 --import System.Random
 --import Data.Tuple
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 --import Control.Monad.State
 

src/Dodge/Item/Weapon/Remote.hs

@@ -8,7 +8,7 @@ import Dodge.Default
 import Geometry
 import Dodge.Item.Location
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import Control.Lens
 
 setRemoteBombScope :: Int -> Prop -> World -> World

src/Dodge/Item/Weapon/SonicGuns.hs

@@ -16,7 +16,7 @@ import LensHelp
 --import Data.Bifunctor
 --import System.Random
 --import Data.Tuple
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 
 sonicGun :: Item
 sonicGun = defaultAutoGun 

src/Dodge/Item/Weapon/Targeting.hs

@@ -6,7 +6,7 @@ import Dodge.Data
 import Geometry.Data
 
 import Control.Lens
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 useTargetPos 
     :: (Maybe Point2 -> Creature -> World -> World)
     -> Creature

src/Dodge/Item/Weapon/TriggerType.hs

@@ -83,7 +83,7 @@ import LensHelp
 
 --import Control.Lens
 import Data.Maybe
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 import Data.Foldable
 
 type ChainEffect