RabbitMQ fsharp helpers

fsharp_rabbit_consume.fsx

let consume (m: IModel) queue f =
        let consumer =
            { new DefaultBasicConsumer(m) with
                member x.HandleBasicDeliver(consumerTag,
                                            deliveryTag,
                                            redelivered,
                                            exchange,
                                            routingKey,
                                            props,
                                            body) =
                                            f deliveryTag props body }
        let consumerTag = m.BasicConsume(queue, false, consumer)
        { new System.IDisposable with
            member __.Dispose () =
                m.BasicCancel(consumerTag) }