Stop camera movement when pausing

2025-06-02 12:55:27 +01:00
parent 1851dcc5d6
commit 695cf3c5fd
1 changed files with 2 additions and 2 deletions
@@ -75,7 +75,6 @@ updateUniverse u =
        . updateUniverseMid
        . debugEvents
        . updateMouseContext cfig
-        . over uvWorld (updateCamera cfig)
        . updateUniverseFirst
        $ u
  where
@@ -161,10 +160,11 @@ updateUniverseMid u = case _uvScreenLayers u of
    (sl : _) -> u & uvWorld . unpauseClock .~ 0 & updateUseInputOnScreen sl
    [] ->
        (uvWorld . unpauseClock +~ 1) .
-        timeFlowUpdate . updateUseInputInGame $
+        timeFlowUpdate . updateUseInputInGame .
            over
                uvWorld
                (updateMouseInGame (u ^. uvConfig))
+        $ over uvWorld (updateCamera (u ^. uvConfig))
                u

 timeFlowUpdate :: Universe -> Universe