Cleanup

2021-12-01 11:11:24 +00:00
parent b9e4a80a46
commit d75ea2b252
5 changed files with 10 additions and 13 deletions
@@ -67,9 +67,9 @@ spaceAction :: World -> World
 spaceAction w = if _carteDisplay w
    then w & carteCenter .~ theLoc
    else case (_inventoryMode w, selectedCloseObject w) of
-        (TopInventory,(Just (_,Left flit))) -> pickUpItem 0 flit w
+        (TopInventory,Just (_,Left flit)) -> pickUpItem 0 flit w
        --(TopInventory,(Just (_,Right but))) -> updateTopCloseObject (_btID but) $ _btEvent but but w
-        (TopInventory,(Just (_,Right but))) -> _btEvent but but w
+        (TopInventory,Just (_,Right but)) -> _btEvent but but w
        _ -> w & inventoryMode .~ TopInventory
  where
    theLoc = fst (_seenLocations w IM.! _selLocation w) w