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

Extract some utilities from http-client branch (#260)

Browse Source
This commit is contained in:
Patrick Stevens
2024-09-14 23:02:32 +01:00
committed by GitHub
parent 693b95106a
commit 09b7109c84
11 changed files with 147 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
WoofWare.Myriad.Plugins/SynExpr/SynArgPats.fs
View File

@@ -9,12 +9,12 @@ module internal SynArgPats =
match caseNames.Length with
| 0 -> SynArgPats.Pats []
| 1 ->
SynPat.Named (SynIdent.SynIdent (Ident.create caseNames.[0], None), false, None, range0)
SynPat.Named (SynIdent.createS caseNames.[0], false, None, range0)
|> List.singleton
|> SynArgPats.Pats
| len ->
caseNames
|> List.map (fun name -> SynPat.Named (SynIdent.SynIdent (Ident.create name, None), false, None, range0))
|> List.map (fun name -> SynPat.Named (SynIdent.createS name, false, None, range0))
|> fun t -> SynPat.Tuple (false, t, List.replicate (len - 1) range0, range0)
|> fun t -> SynPat.Paren (t, range0)
|> List.singleton