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

Allow consuming *all* args as positionals, not just ones which look like --foo (#255)

Browse Source
This commit is contained in:
Patrick Stevens
2024-09-11 20:00:04 +01:00
committed by GitHub
parent 913959a740
commit 5748ac3d5b
9 changed files with 620 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
WoofWare.Myriad.Plugins/SynExpr/SynExpr.fs
View File

@@ -80,6 +80,11 @@ module internal SynExpr =
let equals (a : SynExpr) (b : SynExpr) =
SynExpr.CreateAppInfix (SynExpr.CreateLongIdent SynLongIdent.eq, a) |> applyTo b
/// {a} && {b}
let booleanAnd (a : SynExpr) (b : SynExpr) =
SynExpr.CreateAppInfix (SynExpr.CreateLongIdent SynLongIdent.booleanAnd, a)
|> applyTo b
/// {a} + {b}
let plus (a : SynExpr) (b : SynExpr) =
SynExpr.CreateAppInfix (

3
WoofWare.Myriad.Plugins/SynExpr/SynLongIdent.fs
View File

@@ -33,6 +33,9 @@ module internal SynLongIdent =
let eq =
SynLongIdent.SynLongIdent ([ Ident.create "op_Equality" ], [], [ Some (IdentTrivia.OriginalNotation "=") ])
let booleanAnd =
SynLongIdent.SynLongIdent ([ Ident.create "op_BooleanAnd" ], [], [ Some (IdentTrivia.OriginalNotation "&&") ])
let pipe =
SynLongIdent.SynLongIdent ([ Ident.create "op_PipeRight" ], [], [ Some (IdentTrivia.OriginalNotation "|>") ])