Cleanup

2021-12-05 12:29:01 +00:00
parent 1bb1a06101
commit d9c5cfc26d
22 changed files with 148 additions and 144 deletions
@@ -23,7 +23,7 @@ checkInvSlotsYou it w
 findItemSlot :: Item -> IM.IntMap Item -> Int
 findItemSlot it inv = case _itConsumption it of
    ItemItselfConsumable _ 
-        -> fromMaybe newslot $ IM.findIndex (\it' -> _itCombineType it == _itCombineType it') inv
+        -> fromMaybe newslot $ IM.findIndex (\it' -> _itType it == _itType it') inv
    _   -> newslot
  where
    newslot = maybe 0 ((+1) . fst) $ IM.lookupMax inv