deleteItemBody :: MonadStateWrite m => ItemId -> ItemQuant -> ActorId -> m ()
deleteItemBody iid kit aid =
  updateActor aid $ \b -> b {borgan = rmFromBag kit iid (borgan b) }
deleteItemBody :: MonadStateWrite m => ItemId -> ItemQuant -> ActorId -> m ()
deleteItemBody iid kit aid =
  updateActor aid $ \b -> b {borgan = rmFromBag kit iid (borgan b) }
deleteItemBody iid kit aid =
  updateActor aid $ \b -> b {borgan = rmFromBag kit iid (borgan b) }