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