Stop inanimate objects from opening walls

src/Dodge/Creature/Inanimate.hs

@@ -15,8 +15,10 @@ import Picture
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 
+defaultInanimate = defaultCreature & crIsAnimate .~ False
+
 lamp :: Creature
-lamp = defaultCreature
+lamp = defaultInanimate
     { _crUpdate = initialiseLamp
     , _crHP = 500
     , _crPict = \ _ -> onLayer CrLayer $ color white $ circleSolid 10
@@ -40,7 +42,7 @@ updateLamp i = unrandUpdate handleLS internalUpdate
 
 
 barrel :: Creature
-barrel = defaultCreature
+barrel = defaultInanimate
     { _crUpdate = updateBarrel
     , _crHP = 500
     , _crPict = \ _ -> onLayer CrLayer $ pictures 
@@ -56,7 +58,7 @@ barrel = defaultCreature
     }
 
 explosiveBarrel :: Creature
-explosiveBarrel = defaultCreature
+explosiveBarrel = defaultInanimate
     { _crUpdate = updateExpBarrel
     , _crHP = 400
     , _crPict = \ _ -> onLayer CrLayer $ pictures [ color orange $ circleSolid 10