mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-11 06:58:42 +00:00
17 lines
399 B
Forth
17 lines
399 B
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
open Fantomas.FCS.Syntax
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal SynArgPats =
|
|
let create (caseNames : Ident list) : SynArgPats =
|
|
if caseNames.IsEmpty then
|
|
SynArgPats.Pats []
|
|
else
|
|
|
|
caseNames
|
|
|> List.map (fun i -> SynPat.named i.idText)
|
|
|> SynPat.tuple
|
|
|> List.singleton
|
|
|> SynArgPats.Pats
|