Tweak scrolling, move onto reloading

src/Dodge/Update.hs

@@ -335,9 +335,7 @@ menuWheelStep i u = fromMaybe u $ do
 --  where
 --    y = w ^. input . scrollAmount
 updateWheelEvents :: World -> World
-updateWheelEvents w = updateWheelEvent y w
-  where
-    y = w ^. input . scrollAmount
+updateWheelEvents w = updateWheelEvent (w ^. input . scrollAmount) w
 
 advanceScrollAmount :: Universe -> Universe
 advanceScrollAmount u =
@@ -351,18 +349,13 @@ updatePastWorlds w = w & pastWorlds %~ (forceFoldable . take 100 . ((w ^. lWorld
 --updatePastWorlds w = w & pastWorlds .~ []
 
 moveHammersUp :: Universe -> Universe
---moveHammersUp = uvWorld . hammers .~ M.empty
 moveHammersUp = uvWorld . input . hammers %~ M.map moveHammerUp
 
---moveHammersUp = uvWorld . hammers . each %~ (moveHammerUp $!)
---moveHammersUp = uvWorld %~ ( (hammers . each %~ (moveHammerUp $!)) $!)
---moveHammersUp uv = uv { _uvWorld = w' }
---  where
---    w = _uvWorld uv
---    w' = w {_hammers = fmap moveHammerUp (_hammers w)}
-
 doWorldEvents :: World -> World
-doWorldEvents w = foldl' (flip doWdWd) (w & cWorld . lWorld . worldEvents .~ []) (w ^. cWorld . lWorld . worldEvents)
+doWorldEvents w = foldl' 
+    (flip doWdWd) 
+    (w & cWorld . lWorld . worldEvents .~ []) 
+    (w ^. cWorld . lWorld . worldEvents)
 
 updateLasers :: World -> World
 updateLasers w =