Source file `error.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
type t =
  | Http_error
  | Json_error
  | Deserialization_error
[@@deriving eq, show]

let to_string = function
  | Http_error ->
      "HTTP error"
  | Json_error ->
      "JSON error"
  | Deserialization_error ->
      "Deserialization error"