Commit before apply different damage amounts to different materials

src/Dodge/Data/Block.hs

@@ -21,13 +21,13 @@ data Block = Block
     { _blID :: Int
     , _blWallIDs :: IS.IntSet
     , _blHP :: Int
-    , _blShadows :: [Int] -- a list of blocks/walls? that are not shown when this block exists
+    , _blShadows :: [Int] -- a list of walls that are not shown when this block exists
     , _blFootprint :: [Point2]  -- TODO check whether this should be clockwise/anticlockwise
     , _blPos :: Point2
     , _blDir :: Float
     , _blHeight :: Float
     , _blMaterial :: Material
-    , _blDraw :: BlockDraw --Block -> SPic
+    , _blDraw :: BlockDraw
     , _blObstructs :: [(Int,Int)]
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)