Restrict some arguments

2022-10-28 22:00:38 +01:00
parent d496c4c523
commit 14e2b5cf8f
6 changed files with 55 additions and 53 deletions
@@ -156,7 +156,7 @@ functionalUpdate w =
        . over uvWorld updateDistortions
        . over uvWorld updateCreatureSoundPositions
        . over uvWorld ppEvents
-        . updateCamera
+        . over uvWorld (updateCamera cfig)
        . colCrsWalls
        . over uvWorld simpleCrSprings
        . over uvWorld zoneCreatures
@@ -201,6 +201,8 @@ functionalUpdate w =
        . over uvWorld updateCloseObjects
        . over uvWorld updateWheelEvents
        $ over uvWorld updatePastWorlds w
+  where
+    cfig = _uvConfig w

 updateWheelEvents :: World -> World
 updateWheelEvents w = foldr ($) w (replicate (abs y) (updateWheelEvent (signum y)))