forked from
jonmsterling.com/ocaml-forester
ocaml
register exception printer for Iri errors
+9
+9
lib/core/Iri_scheme.ml
+9
lib/core/Iri_scheme.ml
···
1
+
open Forester_prelude
2
+
1
3
let scheme = "forest"
2
4
3
5
let base_iri ~host =
···
35
37
Iri.iri ~path: (Iri.Relative components) ()
36
38
else
37
39
iri
40
+
41
+
let () =
42
+
let@ exn = Printexc.register_printer in
43
+
match exn with
44
+
| Iri.Error err ->
45
+
Option.some @@ Format.sprintf "Iri.error (%s)" (Iri.string_of_error err)
46
+
| _ -> None