From 92c897e6a2af24f13d2ca258bb6382cba49cbe0d Mon Sep 17 00:00:00 2001 From: jgk Date: Tue, 17 Aug 2021 19:15:33 +0200 Subject: [PATCH] Fix switch bug --- src/Dodge/Event/Keyboard.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Dodge/Event/Keyboard.hs b/src/Dodge/Event/Keyboard.hs index 0454e8d86..d5eccb071 100644 --- a/src/Dodge/Event/Keyboard.hs +++ b/src/Dodge/Event/Keyboard.hs @@ -86,7 +86,7 @@ spaceAction w = if _carteDisplay w _ -> w & inventoryMode .~ TopInventory where theLoc = fst (_seenLocations w IM.! _selLocation w) w - updateTopCloseObject i = closeActiveObjects %~ ( Right (_buttons w IM.! i) : ) . tail + updateTopCloseObject i w' = w' & closeActiveObjects %~ ( Right (_buttons w' IM.! i) : ) . tail pauseGame :: World -> World pauseGame w = w {_menuLayers = [PauseMenu]}