git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Complete rewrite of virt-df:
[virt-top.git]
/
virt-top
/
virt_top_main.ml
diff --git
a/virt-top/virt_top_main.ml
b/virt-top/virt_top_main.ml
index
cb3486e
..
4ab60ad
100644
(file)
--- a/
virt-top/virt_top_main.ml
+++ b/
virt-top/virt_top_main.ml
@@
-21,6
+21,7
@@
open Curses
open Curses
+open Virt_top_gettext.Gettext
open Virt_top
(* Note: make sure we catch any exceptions and clean up the display.
open Virt_top
(* Note: make sure we catch any exceptions and clean up the display.
@@
-30,20
+31,20
@@
open Virt_top
* the program under --debug ...).
*)
let error =
* the program under --debug ...).
*)
let error =
- let
setup
= start_up () in
+ let
((_, _, script_mode, _, _, _, _) as setup)
= start_up () in
try
main_loop setup;
try
main_loop setup;
- if
!
script_mode then endwin ();
+ if
not
script_mode then endwin ();
false
with
| Libvirt.Virterror err ->
false
with
| Libvirt.Virterror err ->
- endwin ();
+
if not script_mode then
endwin ();
prerr_endline (Libvirt.Virterror.to_string err);
true
| exn ->
prerr_endline (Libvirt.Virterror.to_string err);
true
| exn ->
- endwin ();
- prerr_endline (
"Error
: " ^ Printexc.to_string exn);
+
if not script_mode then
endwin ();
+ prerr_endline (
s_ "Error" ^ "
: " ^ Printexc.to_string exn);
true
let () =
true
let () =