Use strict-containers for IntMaps

src/Dodge/Creature/Perception.hs

@@ -17,7 +17,7 @@ import Sound.Data
 
 import Data.Maybe
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 
 perceptionUpdate
@@ -35,7 +35,7 @@ chaseCritPerceptionUpdate is w =
  of attention -} -- TODO delete?
 basicAwarenessUpdate :: Creature -> Creature
 basicAwarenessUpdate cr = case _cpAttention $ _crPerception cr of
-    Fixated i -> cr & crPerception . cpAwareness 
+    Fixated i -> cr & crPerception . cpAwareness
         %~ (IM.insert i (Cognizant 10000) . IM.mapMaybe decreaseAwareness)
     AttentiveTo is -> cr 
         & crPerception . cpAwareness