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
Remove generated man pages from git.
[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
4e5c07b
..
44dbf93
100644
(file)
--- a/
virt-top/virt_top_main.ml
+++ b/
virt-top/virt_top_main.ml
@@
-31,21
+31,21
@@
open Virt_top
* the program under --debug ...).
*)
let error =
* the program under --debug ...).
*)
let error =
- let ((_, _, script_mode, _, _, _, _) as setup) = start_up () in
+ let ((_, _, script_mode,
stream_mode,
_, _, _, _) as setup) = start_up () in
try
Printexc.record_backtrace true;
main_loop setup;
try
Printexc.record_backtrace true;
main_loop setup;
- if not script_mode then endwin ();
+ if not script_mode
&& not stream_mode
then endwin ();
false
with
| Libvirt.Virterror err ->
false
with
| Libvirt.Virterror err ->
- if not script_mode then endwin ();
+ if not script_mode
&& not stream_mode
then endwin ();
prerr_endline (Libvirt.Virterror.to_string err);
Printexc.print_backtrace stderr;
true
| exn ->
prerr_endline (Libvirt.Virterror.to_string err);
Printexc.print_backtrace stderr;
true
| exn ->
- if not script_mode then endwin ();
+ if not script_mode
&& not stream_mode
then endwin ();
prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn);
Printexc.print_backtrace stderr;
true
prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn);
Printexc.print_backtrace stderr;
true