Make combine and tweak menus servicable

2021-12-04 00:27:22 +00:00
parent ecbc8eab35
commit 0114a2f9f2
14 changed files with 208 additions and 175 deletions
@@ -11,7 +11,7 @@ putItemInInvID cid flid w = fromMaybe w
    $ tryPutItemInInv cid (_floorItems w IM.! flid) w

 putItemInInvSlot :: Int -> Item -> IM.IntMap Item -> IM.IntMap Item
-putItemInInvSlot invsel it = IM.insertWith (const $ itConsumption . itAmount' +~ 1) invsel it
+putItemInInvSlot = IM.insertWith (const $ itConsumption . itAmount' +~ 1)

 {- | Pick up a specific item. -}
 tryPutItemInInv :: Int -> FloorItem -> World -> Maybe World