Move wall damages to external position

src/Dodge/Update.hs

@@ -10,6 +10,7 @@ import Dodge.Block
 import Dodge.Distortion
 import Dodge.SoundLogic
 import Dodge.Wall.Delete
+import Dodge.Update.WallDamage
 --import Dodge.Menu
 import Dodge.Base
 import Dodge.Zone
@@ -82,6 +83,7 @@ functionalUpdate cfig w = checkEndGame
     . over creatures (fmap setOldPos)
     . updateCreatureGroups
     . updateBlocks
+    . updateWallDamages
     . updateSeenWalls 
 --    . (youHammerPosition %~ moveHammerUp)
     . updateTerminal
@@ -95,6 +97,7 @@ functionalUpdate cfig w = checkEndGame
       where 
         (x,y) = cloudZoneOfPoint $ stripZ $ _clPos cl
 
+
 updateBoundBox :: Configuration -> World -> World
 updateBoundBox cfig w = w & boundBox .~ cullBox cfig w