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

Fix another test

Browse Source
This commit is contained in:
Smaug123
2025-04-17 11:05:08 +01:00
parent 54e3f17d9c
commit c14f89f807
2 changed files with 179 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1929,8 +1929,8 @@ module internal ShibaGenerator =
SynPat.named "args"
|> SynPat.annotateType (SynType.appPostfix "list" SynType.string)
let raiseErrors =
SynExpr.createIdent "e"
let raiseErrors (errorIdent : Ident) =
SynExpr.createIdent' errorIdent
|> SynExpr.pipeThroughFunction (
SynExpr.applyFunction
(SynExpr.createLongIdent [ "String" ; "concat" ])
@@ -1950,11 +1950,19 @@ module internal ShibaGenerator =
(SynExpr.createLongIdent' [ parseStateIdent ; Ident.create "AwaitingKey" ])
|> SynExpr.applyTo (SynExpr.createIdent "args")
SynExpr.ifThenElse
(SynExpr.dotGet "Count" (SynExpr.createIdent "errors_")
|> SynExpr.equals (SynExpr.CreateConst 0))
(raiseErrors (Ident.create "errors_"))
(SynExpr.CreateConst ())
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.tuple [ SynPat.named "result" ; SynPat.anon ] ])
(SynExpr.createIdent "result")
SynMatchClause.create (SynPat.nameWithArgs "Error" [ SynPat.named "e" ]) raiseErrors
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "e" ])
(raiseErrors (Ident.create "e"))
]
|> SynExpr.createMatch (
SynExpr.callMethodArg