Use strict-containers for IntMaps

src/Dodge/Creature/Statistics.hs

@@ -8,7 +8,7 @@ import qualified IntMapHelp as IM
 import LensHelp
 
 import Data.Maybe
-import Data.IntMap.Merge.Strict
+import Data.Strict.IntMap.Autogen.Merge.Strict
 
 getCrDexterity :: Creature -> Int
 getCrDexterity cr = _dexterity (_crStatistics cr)
@@ -26,7 +26,7 @@ equipmentStrValue itm = case _iyBase $ _itType itm of
     _ -> 0
 
 crCurrentEquipment :: Creature -> IM.IntMap Item
-crCurrentEquipment cr =  merge dropMissing dropMissing (zipWithMatched (\_ _ itm -> itm))
+crCurrentEquipment cr = merge dropMissing dropMissing (zipWithMatched (\_ _ itm -> itm))
     (_crInvEquipped cr)
     (_crInv cr)