Add IntMapHelper, locate wall cutting bug

src/Dodge/Creature/Inanimate.hs

@@ -6,7 +6,6 @@ module Dodge.Creature.Inanimate
 import Dodge.Data
 --import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
-import Dodge.Base
 import Dodge.Picture.Layer
 import Dodge.Default
 import Dodge.Creature.State
@@ -15,8 +14,8 @@ import Dodge.WorldEvent.Flash
 import Dodge.WorldEvent.Sound
 import Dodge.Creature.Update hiding (CRUpdate)
 import Picture
+import qualified IntMapHelp as IM
 
-import qualified Data.IntMap.Strict as IM
 import Control.Lens
 
 defaultInanimate :: Creature
@@ -34,7 +33,7 @@ lamp = defaultInanimate
 initialiseLamp :: CRUpdate
 initialiseLamp w (f,g) cr = ( (addLS . f , g), Just $ cr & crUpdate .~ updateLamp i)
   where
-    i = newKey $ _lightSources $ f w -- to give different lights different keys
+    i = IM.newKey $ _lightSources $ f w -- to give different lights different keys
     addLS = over lightSources (IM.insert i (lightAt (_crPos cr) i))
 
 updateLamp :: Int -> CRUpdate