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