Use strict-containers for IntMaps

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