| 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 []
"--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";
]