syndic_error.ml
syndic
1 2 3 4 5 6 7 8 9 open Printf type t = Xmlm.pos * string exception Error of t let to_string = function | Error (pos, str) -> sprintf "%s at l.%d c.%d" str (fst pos) (snd pos) | exn -> Printexc.to_string exn
1 2 3 4 5 6 7 8 9
open Printf type t = Xmlm.pos * string exception Error of t let to_string = function | Error (pos, str) -> sprintf "%s at l.%d c.%d" str (fst pos) (snd pos) | exn -> Printexc.to_string exn