Cleanup
This commit is contained in:
@@ -545,7 +545,7 @@ tryCombine (i, j) w = fromMaybe w $ do
|
||||
. ciSections . ix i . ssItems . ix j . siPayload . _Just
|
||||
p <- w ^? cWorld . lWorld . creatures . ix 0 . crPos
|
||||
return $
|
||||
(createItemYou it (foldr (destroyInvItem 0 . NInt) w (sort is)))
|
||||
createItemYou it (foldr (destroyInvItem 0 . NInt) w (sort is))
|
||||
& soundStart InventorySound p wrench1S Nothing
|
||||
& hud . diSelection . _Just . slSet .~ mempty
|
||||
|
||||
|
||||
Reference in New Issue
Block a user