Fix combination bug

2021-12-06 02:33:36 +00:00
parent 22e3256da3
commit 40195d033c
12 changed files with 122 additions and 100 deletions
@@ -144,7 +144,7 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
        & inventoryMode . combineInvSel . _Just %~ ((`mod` numcombs) . subtract yi)
    (_, _) -> w
  where
-    numcombs = length $ combineListYou w
+    numcombs = length $ combineItemListYou w
    yi = round $ signum y
    numLocs = (fst . IM.findMax $ _seenLocations w) + 1
    rbDown = ButtonRight `S.member` _mouseButtons w