From 94b4d762109604f4fafface50c44baf3f70a4034 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 1 Jan 1970 00:00:00 +0000 Subject: [PATCH] Fix usage. --- diskzip/diskzip.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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), -- 1.8.3.1