Cosmetic changes to the help output and man page.

[whenjobs.git] / tools / whenjobs.ml

diff --git a/tools/whenjobs.ml b/tools/whenjobs.ml
index bd26545..c792e26 100644 (file)
--- a/tools/whenjobs.ml
+++ b/tools/whenjobs.ml
@@ -88,13 +88,13 @@ let rec main () =
     "--daemon-restart", Arg.Unit (set_mode `Daemon_restart), " Restart the daemon";
     "-e", Arg.Unit (set_mode `Edit), " Edit and upload the script";
     "--edit", Arg.Unit (set_mode `Edit), " Edit and upload the script";
-    "--get", Arg.Unit (set_mode `Get), " Display the variable";
+    "--get", Arg.Unit (set_mode `Get), "var Display the variable";
     "--jobs", Arg.Unit (set_mode `Jobs), " List running jobs";
     "-l", Arg.Unit (set_mode `List), " List the script";
     "--list", Arg.Unit (set_mode `List), " List the script";
     "--lib", Arg.Set_string libdir, "dir Specify directory that contains pa_when.cmo";
     "--set", Arg.Unit (set_mode `Set), " Set the variable";
-    "--start", Arg.Unit (set_mode `Start), " Start a job manually";
+    "--start", Arg.Unit (set_mode `Start), "name Start a job manually";
     "--type", Arg.Set_string typ, "bool|int|float|string|unit Set the variable type";
     "--upload", Arg.Unit (set_mode `Upload), " Upload the script";
     "--variables", Arg.Unit (set_mode `Variables), " Display all variables and values";