Commit before attempting to move some data into a "local" world type

src/Dodge/Update.hs

@@ -4,6 +4,7 @@ Description : Simulation update
 -}
 module Dodge.Update (update) where
 import Dodge.Data
+import Dodge.Hammer
 import Dodge.Block
 import Dodge.Distortion
 import Dodge.SoundLogic
@@ -65,6 +66,7 @@ functionalUpdate w = case _menuLayers w of
         . updateCreatureGroups
         . updateBlocks
         . updateSeenWalls 
+        . (lSelHammerPosition %~ moveHammerUp)
         $ updateCloseObjects w
   where 
     --updatedLightSources = mapMaybe (\b -> _tlsUpdate b w b) $ _tempLightSources w