Apply different damage amounts to different materials

src/Dodge/Wall/Damage.hs

@@ -13,17 +13,17 @@ damageWall :: Damage -> Wall -> World -> World
 damageWall dt wl w = case _wlStructure wl of
     MachinePart mcid -> w' & cWorld . lWorld . machines . ix mcid . mcDamage .:~ dt
     BlockPart blid ->
-        w' & cWorld . lWorld . blocks . ix blid . blHP -~ x
+        w' & cWorld . lWorld . blocks . ix blid . blHP -~ dmam
             & maybeDestroyBlock blid
     DoorPart drid ->
-        w' & cWorld . lWorld . doors . ix drid . drHP -~ x
+        w' & cWorld . lWorld . doors . ix drid . drHP -~ dmam
 --            & maybeDestroyDoor drid
     _ -> w'
   where
-    x = case dt of
-        Explosive y _ -> y * 100
-        _ -> dt ^. dmAmount
-    w' = damMatSideEffect dt (_wlMaterial wl) (Right wl) w
+--    x = case dt of
+--        Explosive y _ -> y * 100
+--        _ -> dt ^. dmAmount
+    (dmam,w') = damMatSideEffect dt (_wlMaterial wl) (Right wl) w
 
 -- block destruction is convoluted...
 maybeDestroyBlock :: Int -> World -> World