Allow for door destruction

2022-06-19 20:50:03 +01:00
parent 9e311cccf4
commit 08e5df07e2
14 changed files with 82 additions and 42 deletions
@@ -318,4 +318,5 @@ pickUpItemID cid flid w = pickUpItem cid (_floorItems w IM.! flid) w
 {- | Pick up a specific item. -}
 pickUpItem :: Int -> FloorItem -> World -> World
 pickUpItem cid flit w = maybe w (soundStart (CrSound cid) (_flItPos flit) pickUpS Nothing)
+    . fmap snd
    $ tryPutItemInInv cid flit w