patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-10-08 13:38:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix another test

Browse Source
This commit is contained in:
Smaug123
2025-04-17 16:02:20 +01:00
parent d3d50cae7c
commit 2f266b052d
3 changed files with 103 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

123
ConsumePlugin/GeneratedArgs.fs
View File

@@ -161,7 +161,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -335,7 +336,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -513,7 +515,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -882,7 +885,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -1236,7 +1240,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -1457,7 +1462,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1571,7 +1577,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1689,10 +1696,11 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf ->
| Error None ->
match this.ProcessKeyValueRecord_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
| Error errorFromRecord -> Error errorFromRecord
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -1812,7 +1820,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1930,10 +1939,11 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf ->
| Error None ->
match this.ProcessKeyValueRecord_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
| Error errorFromRecord -> Error errorFromRecord
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -2061,10 +2071,11 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf ->
| Error None ->
match this.ProcessKeyValueRecord_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
| Error errorFromRecord -> Error errorFromRecord
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -2140,7 +2151,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -2237,7 +2249,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -2345,7 +2358,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -2481,7 +2495,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -2593,7 +2608,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -2772,7 +2788,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
@@ -2912,7 +2929,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -3017,7 +3035,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -3131,7 +3150,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -3240,7 +3260,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -3354,7 +3375,8 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueSelf_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
| Error None -> Error None
| Error (Some errorFromLeaf) -> Error (Some errorFromLeaf)
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -3432,7 +3454,7 @@ module internal ArgParseHelpers_ConsumePlugin =
=
match this.ProcessKeyValueRecord_ argNum_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
| Error errorFromRecord -> Error errorFromRecord
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -3485,7 +3507,7 @@ module PassThruArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_PassThru.AwaitingValue arg)
go (argNum_ + 1) (ParseState_PassThru.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -3600,7 +3622,7 @@ module FlagsIntoPositionalArgs'ArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgs'.AwaitingValue arg)
go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgs'.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -3715,8 +3737,10 @@ module FlagsIntoPositionalArgsIntChoiceArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args
|> go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgsIntChoice.AwaitingValue arg)
go
(argNum_ + 1)
(ParseState_FlagsIntoPositionalArgsIntChoice.AwaitingValue arg)
args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -3840,8 +3864,7 @@ module FlagsIntoPositionalArgsIntArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args
|> go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgsInt.AwaitingValue arg)
go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgsInt.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -3956,8 +3979,7 @@ module FlagsIntoPositionalArgsChoiceArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args
|> go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgsChoice.AwaitingValue arg)
go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgsChoice.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4073,7 +4095,7 @@ module FlagsIntoPositionalArgsArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgs.AwaitingValue arg)
go (argNum_ + 1) (ParseState_FlagsIntoPositionalArgs.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4182,7 +4204,7 @@ module ManyLongFormsArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ManyLongForms.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ManyLongForms.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4297,7 +4319,7 @@ module ContainsFlagDefaultValueArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ContainsFlagDefaultValue.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ContainsFlagDefaultValue.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4408,7 +4430,7 @@ module ContainsFlagEnvVarArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ContainsFlagEnvVar.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ContainsFlagEnvVar.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4517,7 +4539,7 @@ module WithFlagDuArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_WithFlagDu.AwaitingValue arg)
go (argNum_ + 1) (ParseState_WithFlagDu.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4628,7 +4650,7 @@ module ContainsBoolEnvVarArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ContainsBoolEnvVar.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ContainsBoolEnvVar.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4739,7 +4761,7 @@ module ChoicePositionalsArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ChoicePositionals.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ChoicePositionals.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4850,7 +4872,7 @@ module ParentRecordSelfPosArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ParentRecordSelfPos.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ParentRecordSelfPos.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -4961,7 +4983,7 @@ module ParentRecordChildPosArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ParentRecordChildPos.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ParentRecordChildPos.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5070,7 +5092,7 @@ module ParentRecordArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_ParentRecord.AwaitingValue arg)
go (argNum_ + 1) (ParseState_ParentRecord.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5179,7 +5201,7 @@ module DatesAndTimesArgParse =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_DatesAndTimes.AwaitingValue arg)
go (argNum_ + 1) (ParseState_DatesAndTimes.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5286,8 +5308,7 @@ module LoadsOfTypesNoPositionals =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args
|> go (argNum_ + 1) (ParseState_LoadsOfTypesNoPositionals.AwaitingValue arg)
go (argNum_ + 1) (ParseState_LoadsOfTypesNoPositionals.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5392,7 +5413,7 @@ module LoadsOfTypes =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_LoadsOfTypes.AwaitingValue arg)
go (argNum_ + 1) (ParseState_LoadsOfTypes.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5499,7 +5520,7 @@ module BasicWithIntPositionals =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_BasicWithIntPositionals.AwaitingValue arg)
go (argNum_ + 1) (ParseState_BasicWithIntPositionals.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5604,7 +5625,7 @@ module Basic =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_Basic.AwaitingValue arg)
go (argNum_ + 1) (ParseState_Basic.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]
@@ -5711,7 +5732,7 @@ module BasicNoPositionals =
let equals = arg.IndexOf (char 61)
if equals < 0 then
args |> go (argNum_ + 1) (ParseState_BasicNoPositionals.AwaitingValue arg)
go (argNum_ + 1) (ParseState_BasicNoPositionals.AwaitingValue arg) args
else
let key = arg.[0 .. equals - 1]
let value = arg.[equals + 1 ..]

11
WoofWare.Myriad.Plugins.Test/TestArgParser/TestArgParser.fs
View File

@@ -318,8 +318,7 @@ Required argument '--baz' received no value"""
exc.Message
|> shouldEqual
"""Errors during parse!
Input string was not in a correct format. (at arg --invariant-exact=23:59)
Required argument '--invariant-exact' received no value"""
Input string was not in a correct format. (at arg --invariant-exact=23:59)"""
let exc =
Assert.Throws<exn> (fun () ->
@@ -337,8 +336,7 @@ Required argument '--invariant-exact' received no value"""
exc.Message
|> shouldEqual
"""Errors during parse!
Input string was not in a correct format. (at arg --exact=11:34)
Required argument '--exact' received no value"""
Input string was not in a correct format. (at arg --exact=11:34)"""
count.Value |> shouldEqual 0
@@ -604,7 +602,10 @@ Required argument '--exact' received no value"""
)
exc.Message
|> shouldEqual """Unable to process argument --do-the-thing=foo as key --do-the-thing and value foo"""
|> shouldEqual
"""Errors during parse!
Required argument '--do-something-else' received no value
Required argument '--turn-it-on' received no value"""
[<Test>]
let ``Long-form args help text`` () =

32
WoofWare.Myriad.Plugins/ShibaGenerator.fs
View File

@@ -1298,12 +1298,9 @@ module internal ShibaGenerator =
|> Some
let processKeyValue =
let afterErrorFromRecord =
SynExpr.applyFunction (SynExpr.createIdent "Error") (SynExpr.createIdent "None")
let afterErrorFromLeaf =
match processKeyValueChildRecords with
| None -> afterErrorFromRecord
| None -> SynExpr.applyFunction (SynExpr.createIdent "Error") (SynExpr.createIdent "None")
| Some _ ->
[
SynMatchClause.create
@@ -1311,7 +1308,7 @@ module internal ShibaGenerator =
(SynExpr.applyFunction (SynExpr.createIdent "Ok") (SynExpr.CreateConst ()))
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "errorFromRecord" ])
afterErrorFromRecord
(SynExpr.applyFunction (SynExpr.createIdent "Error") (SynExpr.createIdent "errorFromRecord"))
]
|> SynExpr.createMatch (
SynExpr.createLongIdent [ "this" ; "ProcessKeyValueRecord_" ]
@@ -1330,8 +1327,29 @@ module internal ShibaGenerator =
(SynPat.nameWithArgs "Ok" [ SynPat.unit ])
(SynExpr.applyFunction (SynExpr.createIdent "Ok") (SynExpr.CreateConst ()))
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "errorFromLeaf" ])
(SynPat.nameWithArgs "Error" [ SynPat.named "None" ])
// We didn't manage to parse this arg, but we didn't actually fail to do so;
// give our sub-parsers a try.
afterErrorFromLeaf
SynMatchClause.create
(SynPat.nameWithArgs
"Error"
[
SynPat.paren (
SynPat.identWithArgs
[ Ident.create "Some" ]
(SynArgPats.createNamed [ "errorFromLeaf" ])
)
])
// We tried and explicitly failed to consume the argument ourselves, so just hand the error
// back out without even trying our sub-parsers.
(SynExpr.applyFunction
(SynExpr.createIdent "Error")
(SynExpr.paren (
SynExpr.applyFunction
(SynExpr.createIdent "Some")
(SynExpr.createIdent "errorFromLeaf")
)))
]
|> SynExpr.createMatch (
SynExpr.createLongIdent [ "this" ; "ProcessKeyValueSelf_" ]
@@ -1804,7 +1822,7 @@ module internal ShibaGenerator =
(SynPat.nameWithArgs "Error" [ SynPat.named "x" ])
notMatched
]))
(SynExpr.createIdent "args" |> SynExpr.pipeThroughFunction recurseValue)))
(SynExpr.createIdent "args" |> SynExpr.applyFunction recurseValue)))
( //SynExpr.createIdent "helpText"
//|> SynExpr.applyTo (SynExpr.CreateConst ())
SynExpr.CreateConst "TODO"