insertItemBody :: MonadStateWrite m
               => ItemId -> ItemQuant -> ActorId -> m ()
insertItemBody iid kit aid = do
  let bag = EM.singleton iid kit
      upd = EM.unionWith mergeItemQuant bag
  updateActor aid $ \b -> b {borgan = upd (borgan b)}
insertItemBody :: MonadStateWrite m
               => ItemId -> ItemQuant -> ActorId -> m ()
insertItemBody iid kit aid = do
  let bag = EM.singleton iid kit
      upd = EM.unionWith mergeItemQuant bag
  updateActor aid $ \b -> b {borgan = upd (borgan b)}
insertItemBody iid kit aid = do
  let bag = EM.singleton iid kit
      upd = EM.unionWith mergeItemQuant bag
  updateActor aid $ \b -> b {borgan = upd (borgan b)}