let set_connect_uri conn = connect_uri := conn
let connect_uri () = !connect_uri
+let utf8_copyright = "\194\169"
let utf8_rarrow = "\xe2\x86\x92"
let pretty_string_of_exn =
with the -x flag on the command line."
str
+ | Libvirt.Virterror err ->
+ "Libvirt error",
+ sprintf "libvirt reported an error:
+
+%s
+
+To get more information about libvirt errors, run guestfs-browser
+from the command line like this:
+
+LIBVIRT_DEBUG=1 guestfs-browser"
+ (Libvirt.Virterror.to_string err)
+
(* Add more exception types here as we come across them. Last
* case below is the catch-all.
*)
| exn ->
- "Error", Printexc.to_string exn
+ let str = Printexc.to_string exn in
+ debug "pretty_string_of_exn: unhandled exception %s" str;
+ "Error", str
let human_size i =
if i < 1024L then