Cleanup

src/Dodge/Data/Creature.hs

@@ -30,7 +30,7 @@ import Dodge.Data.Creature.State
 import Dodge.Data.Item
 import Dodge.Data.Material
 import Geometry.Data
-import qualified Data.IntMap.Strict as IM
+import qualified Data.IntSet as IS
 --import qualified IntMapHelp as IM
 
 data Creature = Creature
@@ -58,7 +58,7 @@ data Creature = Creature
     , _crIntention :: Intention
     , _crName :: String
     , _crDeathTimer :: Int
-    , _crCrushTimers :: IM.IntMap Int
+    , _crWallTouch :: IS.IntSet
     }
 
 data CrHP