X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-top%2Fvirt_top_main.ml;h=4ab60ada291f0584f2a4552bda8998be8a23dba5;hp=ba98e7e5e2533da1d05ee125996aad3fb7b684ce;hb=2624e889aa00a2027ebb96d0b12ff1347292e830;hpb=22fd1362126a96472a921d3767ca3220ab13da5a diff --git a/virt-top/virt_top_main.ml b/virt-top/virt_top_main.ml index ba98e7e..4ab60ad 100644 --- a/virt-top/virt_top_main.ml +++ b/virt-top/virt_top_main.ml @@ -21,6 +21,7 @@ open Curses +open Virt_top_gettext.Gettext open Virt_top (* Note: make sure we catch any exceptions and clean up the display. @@ -43,7 +44,7 @@ let error = true | exn -> if not script_mode then endwin (); - prerr_endline ("Error: " ^ Printexc.to_string exn); + prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn); true let () =