Source file `severity_level.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
open Core_kernel

type t =
  [ `Fatal
  | `Error
  | `Warning
  | `Info
  | `Debug
  ]
[@@deriving sexp_of]

let unwrap = function
  | `Fatal -> "fatal"
  | `Error -> "error"
  | `Warning -> "warning"
  | `Info -> "info"
  | `Debug -> "debug"
;;

let wrap = function
  | "fatal" -> `Fatal
  | "error" -> `Error
  | "warning" -> `Warning
  | "info" -> `Info
  | "debug" -> `Debug
  | s -> failwithf "Unknown severity level %s" s ()
;;