From: Richard W.M. Jones <"Richard W.M. Jones "> Date: Mon, 28 Apr 2008 12:00:33 +0000 (+0100) Subject: Fix usage. X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=94b4d762109604f4fafface50c44baf3f70a4034;hp=0b2bee9a672e5884f17ef231daf12daa89c26126;p=virt-df.git Fix usage. --- diff --git a/diskzip/diskzip.ml b/diskzip/diskzip.ml index d857681..f8d58b4 100644 --- a/diskzip/diskzip.ml +++ b/diskzip/diskzip.ml @@ -86,9 +86,9 @@ let rec main () = "-j", Arg.Unit (set_extcompress BZip2), " " ^ s_"Pipe the output/input through bzip2"; "-o", Arg.String set_output, - "path" ^ s_"Set the output filename or directory name"; + "path " ^ s_"Set the output filename or directory name"; "-p", Arg.String (fun prog -> set_extcompress (External prog) ()), - "prog" ^ s_"Pipe the output/input through external program"; + "prog " ^ s_"Pipe the output/input through external program"; "--version", Arg.Unit version, " " ^ s_"Display version and exit"; "-z", Arg.Unit (set_extcompress GZip),