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

More

Browse Source
This commit is contained in:
Smaug123
2025-04-17 11:13:37 +01:00
parent c14f89f807
commit 55a3876610
2 changed files with 115 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1958,8 +1958,16 @@ module internal ShibaGenerator =
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.tuple [ SynPat.named "result" ; SynPat.anon ] ])
(SynExpr.createIdent "result")
(SynPat.nameWithArgs
"Ok"
[ SynPat.tuple [ SynPat.named "result" ; SynPat.named "posConsumer" ] ])
(SynExpr.ifThenElse
(SynExpr.booleanAnd
(SynExpr.dotGet "Count" (SynExpr.createIdent "positionals")
|> SynExpr.greaterThan (SynExpr.CreateConst 0))
(SynExpr.dotGet "IsNone" (SynExpr.createIdent "posConsumer")))
(SynExpr.createIdent "result")
(SynExpr.applyFunction (SynExpr.createIdent "failwith") (SynExpr.CreateConst "TODO")))
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "e" ])
(raiseErrors (Ident.create "e"))