Make all items have an id an associated location

2022-08-01 23:50:26 +01:00
parent 237cd3e020
commit 82aedc3830
11 changed files with 123 additions and 84 deletions
@@ -32,9 +32,7 @@ tryPutItemInInv cid flit w = case maybeInvSlot of
  where
    it = _flIt flit
    maybeInvSlot = checkInvSlotsYou it w
-    updateItLocation invid w' = case _itID it of
-        Nothing -> w'
-        Just j -> w' & cWorld . itemLocations . ix j .~ InInv cid invid
+    updateItLocation invid w' = w' & cWorld . itemLocations . ix (_itID it) .~ InInv cid invid

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