Fix incorrect usage of Arg.align, which caused --help to appear several times.

src/ide/why3ide.ml

@@ -165,7 +165,7 @@ module Server = Itp_server.Make (Scheduler) (Protocol_why3ide)
 let files : string Queue.t = Queue.create ()
 let opt_parser = ref None
 
-let spec = Arg.align [
+let spec = [
   "-F", Arg.String (fun s -> opt_parser := Some s),
       "<format> select input format (default: \"why\")";
   "--format", Arg.String (fun s -> opt_parser := Some s),

src/ide/why3web.ml

@@ -129,7 +129,7 @@ let files : string Queue.t = Queue.create ()
 
 let opt_parser = ref None
 
-let spec = Arg.align [
+let spec = [
   "-F", Arg.String (fun s -> opt_parser := Some s),
       "<format> select input format (default: \"why\")";
   "--format", Arg.String (fun s -> opt_parser := Some s),

src/tools/why3shell.ml

@@ -81,7 +81,7 @@ let send_request = Protocol_shell.send_request
 (* files of the current task *)
 let files = Queue.create ()
 
-let spec = Arg.align []
+let spec = []
 
 (* --help *)
 let usage_str = Format.sprintf

src/why3doc/doc_main.ml

@@ -26,7 +26,7 @@ let opt_title = ref None
 let opt_body = ref false
 let opt_queue = Queue.create ()
 
-let option_list = Arg.align [
+let option_list = [
   "-o", Arg.String (fun s -> opt_output := Some s),
       "<dir> print files in <dir>";
   "--output", Arg.String (fun s -> opt_output := Some s),