Skip to content

Commit 2f7c1b9

Browse files
committed
Fixed build warnings
1 parent 74beb2f commit 2f7c1b9

File tree

1 file changed

+5
-6
lines changed

1 file changed

+5
-6
lines changed

src/Myriad/Program.fs

Lines changed: 5 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
namespace Myriad
22
open System
3-
open Fantomas
43
open System.IO
54
open Fantomas.FCS.Syntax
65
open 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

Comments
 (0)