Gracefully respond to invalid command line options. (#146)

jasone · vasilisp · commit d56f9a4a333c · 2018-03-13T10:47:54.000+01:00
Handle the Arg.Bad exception and print command line usage to stderr.

Normalize the Arg.Help handler to omit an extra newline when printing
command line usage.
diff --git a/src/baselib/ocsigen_commandline.ml b/src/baselib/ocsigen_commandline.ml
@@ -39,4 +39,6 @@ let cmdline : unit =
       ]
       (fun _ -> ())
       "usage: ocsigen [-c configfile]"
-  with Arg.Help s -> print_endline s; exit 0
+  with
+  | Arg.Help s -> print_string s; exit 0
+  | Arg.Bad s -> prerr_string s; exit 1

Original file line number	Diff line number	Diff line change
`@@ -39,4 +39,6 @@ let cmdline : unit =`
`39`	`39`	`]`
`40`	`40`	`(fun _ -> ())`
`41`	`41`	`"usage: ocsigen [-c configfile]"`
`42`		`- with Arg.Help s -> print_endline s; exit 0`
	`42`	`+ with`
	`43`	`+ \| Arg.Help s -> print_string s; exit 0`
	`44`	`+ \| Arg.Bad s -> prerr_string s; exit 1`