Tweak twisting when aiming

src/Dodge/Inventory/Add.hs

@@ -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 = IM.insertWith (const $ itConsumption . itAmount' +~ 1)
+putItemInInvSlot = IM.insertWith (const $ itConsumption . itAmount +~ 1)
 
 {- | Pick up a specific item. -}
 tryPutItemInInv :: Int -> FloorItem -> World -> Maybe World

src/Dodge/Inventory/ItemSpace.hs

@@ -4,6 +4,6 @@ import Dodge.Data
 import Control.Lens
 
 itSlotsTaken :: Item -> Int
-itSlotsTaken it = case it ^? itConsumption . itAmount' of
+itSlotsTaken it = case it ^? itConsumption . itAmount of
     Nothing -> ceiling (_itInvSize it)
     Just i  -> ceiling (_itInvSize it * fromIntegral i)