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);
        }