Source file `error.ml`

1
2
3
4
5
6
7
8
9
10
include Base.Error
include Info.Extend (Base.Error)

let failwiths ?strict ~here message a sexp_of_a =
  raise (create ?strict ~here message a sexp_of_a)
;;

let failwithp ?strict here message a sexp_of_a =
  raise (create ?strict ~here message a sexp_of_a)
;;