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)
;;