Cleanup

2025-08-25 11:01:07 +01:00
parent ee884899ef
commit 65803c11c9
7 changed files with 17 additions and 34 deletions
@@ -22,7 +22,6 @@ checkInvSlotsYou it w = do
    Just . NInt . IM.newKey . _unNIntMap $ _crInv ycr

 crNumFreeSlots :: IM.IntMap Item -> Creature -> Int
--crNumFreeSlots cr = _crInvCapacity cr - invSize (_crInv cr)
 crNumFreeSlots m cr = maxInvSlots - invSize (fmap f (_crInv cr))
  where
    f i = m ^?! ix i