Pretty error message in failure dialog.

[guestfs-browser.git] / window.ml

diff --git a/window.ml b/window.ml
index 6e720b7..c9955df 100644 (file)
--- a/window.ml
+++ b/window.ml
@@ -133,9 +133,10 @@ let progress ws (position, total) =
  * necessary to turn the exception into an error message.
  *)
 let failure ws exn =
-  let title = "Error" in
-  let msg = Printexc.to_string exn in
-  debug "failure hook: %s" msg;
+  let raw_msg = Printexc.to_string exn in
+  debug "failure hook: %s" raw_msg;
+
+  let title, msg = pretty_string_of_exn exn in
   let icon = GMisc.image () in
   icon#set_stock `DIALOG_ERROR;
   icon#set_icon_size `DIALOG;