From f4cce1cb38186cdd06ca9762042d213022c8d4c0 Mon Sep 17 00:00:00 2001 From: justin Date: Tue, 3 Jun 2025 10:07:56 +0100 Subject: [PATCH] Set mouse position on unpause --- src/Dodge/Menu.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Dodge/Menu.hs b/src/Dodge/Menu.hs index aff3be96f..3fc8faa8a 100644 --- a/src/Dodge/Menu.hs +++ b/src/Dodge/Menu.hs @@ -194,6 +194,7 @@ gameOverMenu u = unpause :: Universe -> Universe unpause u' = resumeSound . set uvScreenLayers [] + . set (uvWorld . input . mousePos) (u' ^. uvWorld . cWorld . lWorld . lAimPos) $ over uvIOEffects (\f u -> SDL.warpMouse SDL.WarpCurrentFocus (SDL.P (SDL.V2 x' y')) >> f u) u' where