11namespace Myriad
22open System
3- open Fantomas
43open System.IO
54open Fantomas.FCS .Syntax
65open Argu
@@ -67,7 +66,7 @@ module Main =
6766 | OutputFile of string
6867 | ConfigFile of string
6968 | ConfigKey of string
70- | [<HiddenAttribute >] ContextFile of string
69+ | [<Hidden >] ContextFile of string
7170 | Plugin of string
7271 | [<CustomCommandLine( " --wait-for-debugger" ) >] WaitForDebugger
7372 | Verbose
@@ -84,7 +83,7 @@ module Main =
8483 | ConfigKey _ -> " Specify a key in the config that will be passed to the generator."
8584 | ContextFile _ -> " Specify a context file for the generator to use."
8685 | Plugin _ -> " Register an assembly plugin."
87- | WaitForDebugger _ -> " Wait for the debugger to attach."
86+ | WaitForDebugger -> " Wait for the debugger to attach."
8887 | Verbose -> " Verbose output."
8988 | AdditionalParams _ -> " Specify additional parameters."
9089 | InlineGeneration -> " Generate code for the input file at the end of the input file."
@@ -244,14 +243,14 @@ About to format generated ouptut from %A{genType}"""
244243 0 // return an integer exit code
245244
246245 with
246+ | :? ArguParseException as ae when ae.ErrorCode = ErrorCode.HelpText ->
247+ printfn $" %s {ae.Message}"
248+ 3
247249 | :? ArguParseException as ae ->
248250 printfn $" %s {ae.Message}"
249251 match ae.ErrorCode with
250252 | ErrorCode.HelpText -> 0
251253 | _ -> 2
252- | :? ArguParseException as ae when ae.ErrorCode = ErrorCode.HelpText ->
253- printfn $" %s {ae.Message}"
254- 3
255254 | :? FileNotFoundException as fnf ->
256255 printfn $" ERROR: inputfile %s {fnf.FileName} doesn not exist\n %s {parser.PrintUsage()}"
257256 4
0 commit comments