bs5/server/middleware/promise.ml


1
2
3
4
5
6
7
8
9
10
11
12

let successful = ref 0
let failed = ref 0

let count_requests inner_handler request =
  try%lwt
    let%lwt response = inner_handler request in
      successful := !successful +1;
      Lwt.return response

    with exn ->
      failed := !failed + 1;
      raise exn