Fix at least one bug from item refactor, more remain

src/Dodge/Inventory/Add.hs

@@ -111,11 +111,11 @@ tryPutItemInInvAt i cid itid w = do
 --    return (Just i, w')
 
 createItemYou :: Item -> World -> World
-createItemYou itm w = fromMaybe w' $ fmap snd $ tryPutItemInInv 0 itid w'
+createItemYou itm w = w' -- fromMaybe w' $ fmap snd $ tryPutItemInInv 0 itid w'
   where
     itid = IM.newKey $ w ^. cWorld . lWorld . items
     pos = w ^?! cWorld . lWorld . creatures . ix 0 . crPos
-    w' = copyItemToFloorID pos (itm & itID .~ NInt itid) w
+    w' = copyItemToFloor pos (itm & itID .~ NInt itid) w
 
 -- | Pick up a specific item.
 pickUpItem :: Int -> Int -> World -> World