Fix crWallCollisions by using a rectangle zone instead of a point

src/Dodge/Update.hs

@@ -190,10 +190,10 @@ updateUniverseMid u = case _uvScreenLayers u of
                     . updateClouds
                )
     (_ : _) -> u
-    [] -> functionalUpdate' u
+    [] -> timeFlowUpdate u
 
-functionalUpdate' :: Universe -> Universe
-functionalUpdate' u = case u ^. uvWorld . cWorld . timeFlow of
+timeFlowUpdate :: Universe -> Universe
+timeFlowUpdate u = case u ^. uvWorld . cWorld . timeFlow of
     NormalTimeFlow -> functionalUpdate u
     ScrollTimeFlow smoothing _ _ _ -> over uvWorld (doTimeScroll smoothing) u
     RewindLeftClick 0 _ -> u & uvWorld . cWorld . timeFlow .~ NormalTimeFlow
@@ -259,13 +259,8 @@ scrollTimeForward w = case w ^? cWorld . timeFlow . futureWorlds . _head of
 functionalUpdate :: Universe -> Universe
 functionalUpdate w =
     checkEndGame
-        --    . updateRandGen
         . over uvWorld (cWorld . lWorld . lClock +~ 1)
         . over uvWorld updateWorldSelect'
-        --        . over uvWorld doRewind
-        --        . over uvWorld (hammers . each %~ moveHammerUp)
-        --        . over (uvWorld . hammers . each) moveHammerUp
-        --        . over uvWorld (hammers %~ fmap moveHammerUp)
         . moveHammersUp
         . over uvWorld updateDistortions
         . over uvWorld updateCreatureSoundPositions