Move wall damages to external position

src/Dodge/Data.hs

@@ -106,6 +106,7 @@ data World = World
     , _newBeams             :: WorldBeams
     , _beams                :: WorldBeams
     , _walls                :: IM.IntMap Wall
+    , _wallDamages          :: IM.IntMap [Damage]
     , _doors                :: IM.IntMap Door
     , _machines             :: IM.IntMap Machine
     , _terminals            :: IM.IntMap Terminal
@@ -1029,7 +1030,7 @@ data Wall = Wall
     , _wlRotateTo       :: Bool
     , _wlStructure      :: WallStructure
     , _wlHeight         :: Float
-    , _wlDamageEff      :: Damage -> Wall -> World -> World
+--    , _wlDamageEff      :: Damage -> Wall -> World -> World
     , _wlMaterial       :: Material
     }
 data Opacity
@@ -1044,7 +1045,7 @@ data WallStructure
     | BlockPart   { _wsBlock   :: Int }
     | CreaturePart 
         { _wlStCreature :: Int 
-        , _wlStDamCreature :: Damage -> Wall -> Int -> World -> World
+--        , _wlStDamCreature :: Damage -> Wall -> Int -> World -> World
         }
 
 data ActionPlan