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

Basic arg parser (#216)

Browse Source
This commit is contained in:
Patrick Stevens
2024-08-26 11:54:35 +01:00
committed by GitHub
parent 569b3cc553
commit 417ca45c37
22 changed files with 3493 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
WoofWare.Myriad.Plugins/CataGenerator.fs
View File

@@ -858,7 +858,7 @@ module internal CataGenerator =
SynExpr.createMatch (SynExpr.createIdent "x") matchCases
|> SynMatchClause.create (
SynPat.identWithArgs analysis.AssociatedProcessInstruction (SynArgPats.create [ Ident.create "x" ])
SynPat.identWithArgs analysis.AssociatedProcessInstruction (SynArgPats.createNamed [ "x" ])
)
/// Create the state-machine matches which deal with receiving the instruction
@@ -896,8 +896,8 @@ module internal CataGenerator =
|> Seq.mapi (fun i x -> (i, x))
|> Seq.choose (fun (i, case) ->
match case.Description with
| FieldDescription.NonRecursive _ -> case.ArgName |> Some
| FieldDescription.ListSelf _ -> case.ArgName |> Some
| FieldDescription.NonRecursive _ -> case.ArgName |> SynPat.namedI |> Some
| FieldDescription.ListSelf _ -> case.ArgName |> SynPat.namedI |> Some
| FieldDescription.Self _ -> None
)
|> Seq.toList