lablgtk2: Use auto-init, don't list gtkThread.cm* twice.

[guestfs-browser.git] / cmdline.ml

diff --git a/cmdline.ml b/cmdline.ml
index e0f244b..bab5768 100644 (file)
--- a/cmdline.ml
+++ b/cmdline.ml
@@ -25,6 +25,10 @@ type cli_request =
   | Open_guest of string
   | Open_images of (string * string option) list
 
+let display_version () =
+  printf "%s %s\n" Config.package Config.version;
+  exit 0
+
 let format = ref None
 let images = ref []
 let guests = ref []
@@ -51,8 +55,8 @@ let argspec = Arg.align [
   "--format",  Arg.String set_format,     "format Set format";
   "-v",        Arg.Unit set_verbose_flag, " Enable debugging messages";
   "--verbose", Arg.Unit set_verbose_flag, " Enable debugging messages";
-  "-V",        Arg.Unit set_verbose_flag, " Display version and exit";
-  "--version", Arg.Unit set_verbose_flag, " Display version and exit";
+  "-V",        Arg.Unit display_version,  " Display version and exit";
+  "--version", Arg.Unit display_version,  " Display version and exit";
   "-x",        Arg.Unit set_trace_flag,   " Enable tracing of libguestfs calls";
 ]