Use strict-containers for IntMaps

src/Dodge/Creature/Impulse/Movement.hs

@@ -4,7 +4,7 @@ import Dodge.Creature.Statistics
 import Geometry
 
 --import Data.Maybe
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 import Control.Lens
 {- | Creature attempts to moves under its own steam.
 The idea is that this may or may not work, depending on the status of the creature. 

src/Dodge/Creature/Impulse/UseItem.hs

@@ -11,7 +11,7 @@ import Dodge.Reloading
 import Dodge.Item.Location
 import Dodge.HeldUse
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 import qualified SDL
 --import qualified Data.IntSet as IS