private void QueueCommand(CommandEnvelope <Command> cmd)
{
var list = new List <Tuple <QueueName, CommandEnvelope <Command> > > {
Tuple.Create(QueueName.NewQueueName("Order"), cmd)
};
var res = PinetreeCQRS.Persistence.SqlServer.Commands.queueCommands(ListModule.OfSeq(list));
if (res.IsOk)
{
return;
}
var f = (res as Result <FSharpList <CommandEnvelope <Command> >, IError> .Bad).Item;
var reasons = f.Select(x => x.ToString()).ToArray();
var reason = string.Join("; ", reasons);
throw new Exception(reason);
}