Tweak close item usage code

2023-02-17 19:14:10 +00:00
parent 90370e5487
commit 56f2dc04cf
3 changed files with 20 additions and 62 deletions
@@ -242,8 +242,8 @@ spaceAction :: World -> World
 spaceAction w = case w ^?! hud . hudElement of
    DisplayCarte -> w & hud . carteCenter .~ theLoc
    DisplayInventory{_subInventory = NoSubInventory} -> case selectedCloseObject w of
-        Just (_, Left flit) -> pickUpItem 0 flit w
-        Just (_, Right but) -> doButtonEvent (_btEvent but) but w
+        Just (Left flit) -> pickUpItem 0 flit w
+        Just (Right but) -> doButtonEvent (_btEvent but) but w
        _ -> w
    DisplayInventory{_subInventory = DisplayTerminal{}} ->
        w & hud . hudElement . subInventory .~ NoSubInventory