struct
open Ketrew_measurement
let incomming_request t ~connection_id ~request =
Collection.add t.measurements
(Item.incoming_request (Item.make_http_request connection_id request))
let end_of_request t ~connection_id ~request ~response_log ~body_length =
Collection.add t.measurements
(Item.end_of_request
(Item.make_http_request connection_id request)
(Item.make_reponse_log response_log body_length))
let tag t s =
Collection.add t.measurements (Item.tag s)
end