Delete location double trees
This commit is contained in:
@@ -1393,7 +1393,7 @@ dropInventoryPath i ip loc cr = fromMaybe id $ do
|
||||
-- guard $ (i + j) `IM.member` (cr ^. crInv)
|
||||
-- return $ dropItem cr (i + j) w
|
||||
-- RELITEM -> fromMaybe w $ do
|
||||
-- j <- loc ^? locLDT . ldtValue . _1 . itLocation . ilInvID
|
||||
-- j <- loc ^? locDT . dtValue . _1 . itLocation . ilInvID
|
||||
-- guard $ (i + j) `IM.member` (cr ^. crInv)
|
||||
-- return $ dropItem cr (i + j) w
|
||||
|
||||
|
||||
Reference in New Issue
Block a user