package vif

  1. Overview
  2. Docs
package vif
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file vif_metrics.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
type t = {
    informational: int Atomic.t
  ; successful: int Atomic.t
  ; redirection: int Atomic.t
  ; client_error: int Atomic.t
  ; server_error: int Atomic.t
}

let empty () =
  {
    informational= Atomic.make 0
  ; successful= Atomic.make 0
  ; redirection= Atomic.make 0
  ; client_error= Atomic.make 0
  ; server_error= Atomic.make 0
  }

let informational t = Atomic.get t.informational
let successful t = Atomic.get t.successful
let redirection t = Atomic.get t.redirection
let client_error t = Atomic.get t.client_error
let server_error t = Atomic.get t.server_error