// Pay an Order
public static IO <OrderAgg> PayOrderAndPersist(Client client, Order order, uint tip)
=> from orderPaid in RestaurantDomain.PayOrder(client, order, tip)
let agg = (orderPaid as PayOrderResult.OrderPaid)?.Order
from db in Database.AddOrUpdate(agg.Order)
select agg;