Improve debris

src/Dodge/Data.hs

@@ -919,7 +919,7 @@ data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
 data Block = Block
     { _blID         :: Int
     , _blWallIDs    :: IS.IntSet
-    , _blHPs        :: [Int]
+    , _blHP         :: Int
     , _blShadows    :: [Int]   -- a list of blocks/walls? that are not shown when this block exists
     , _blMaterial   :: BlockMaterial
     , _blFootprint  :: [Point2]
@@ -1399,7 +1399,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutTerminal {_unputTerminal :: Terminal}
     | PutFlIt Item
     | PutPPlate PressPlate
-    | PutBlock BlockMaterial Int [Int] Wall [Point2]
+    | PutBlock BlockMaterial Int Wall [Point2]
     | PutCoord Point2
     | PutMod Modification
     | PutTrigger (World -> Bool)