From 695cf3c5fdaab3a5820e8b403208fb96bef520c7 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 2 Jun 2025 12:55:27 +0100
Subject: [PATCH] Stop camera movement when pausing

---
 src/Dodge/Update.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 120678ded..4cfc7837c 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -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