Source file `error.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
(* This module is trying to minimize dependencies on modules in Core, so as to allow
   [Error] and [Or_error] to be used in various places.  Please avoid adding new
   dependencies. *)

open! Import
include Info

let t_sexp_grammar : t Sexplib0.Sexp_grammar.t = { untyped = Any "Error.t" }
let raise t = raise (to_exn t)
let raise_s sexp = raise (create_s sexp)
let to_info t = t
let of_info t = t

include Pretty_printer.Register_pp (struct
    type nonrec t = t

    let module_name = "Base.Error"
    let pp = pp
  end)