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