Get rid of world hammers

src/Dodge/Update.hs

@@ -24,7 +24,6 @@ import Dodge.DrWdWd
 import Dodge.EnergyBall
 import Dodge.Flame
 import Dodge.Flare
-import Dodge.Hammer
 import Dodge.InputFocus
 import Dodge.Inventory
 import Dodge.Item.Location
@@ -261,7 +260,6 @@ functionalUpdate w =
     checkEndGame
         . over uvWorld (cWorld . lWorld . lClock +~ 1)
         . over uvWorld updateWorldSelect'
-        . moveHammersUp
         . over uvWorld updateDistortions
         . over uvWorld updateCreatureSoundPositions
         . over uvWorld ppEvents
@@ -355,9 +353,6 @@ updatePastWorlds w = w & pastWorlds %~ (forceFoldable . take 100 . ((w ^. lWorld
 
 --updatePastWorlds w = w & pastWorlds .~ []
 
-moveHammersUp :: Universe -> Universe
-moveHammersUp = uvWorld . input . hammers %~ M.map moveHammerUp
-
 doWorldEvents :: World -> World
 doWorldEvents w = foldl' 
     (flip doWdWd)