Commit before changing block type

src/Dodge/Data.hs

@@ -57,6 +57,7 @@ data World = World
     , _particles            :: ![Particle]
     , _walls                :: !(IM.IntMap Wall)
     , _doors                :: IM.IntMap Door
+    , _blocks               :: IM.IntMap Block'
     , _wallsZone            :: Zone (IM.IntMap Wall)
     , _forceFields          :: IM.IntMap ForceField
     , _floorItems           :: IM.IntMap FloorItem
@@ -535,6 +536,12 @@ data Prop
         , _pjTimer :: Int
         }
 data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
+data Block' = Block'
+    { _blID      :: Int
+    , _blWallIDs :: [Int]
+    , _blHPs     :: [Int]
+    , _blShadows' :: [Int]
+    }
 data Door = Door
     { _drID :: Int
     , _drWallIDs :: [Int]
@@ -765,6 +772,7 @@ makeLenses ''CrGroupParams
 makeLenses ''CrMvType 
 makeLenses ''Intention
 makeLenses ''Door
+makeLenses ''Block'
 makeLenses ''Zone
 numColor :: Int -> Color
 numColor 0  = toV4 (1,0,0,1)