mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-05 20:18:43 +00:00
17 lines
496 B
Forth
17 lines
496 B
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
open Fantomas.FCS.Syntax
|
|
open Fantomas.FCS.Text.Range
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal SynPat =
|
|
|
|
let annotateType (ty : SynType) (pat : SynPat) =
|
|
SynPat.Paren (SynPat.Typed (pat, ty, range0), range0)
|
|
|
|
let named (s : string) : SynPat =
|
|
SynPat.Named (SynIdent.SynIdent (Ident (s, range0), None), false, None, range0)
|
|
|
|
let namedI (i : Ident) : SynPat =
|
|
SynPat.Named (SynIdent.SynIdent (i, None), false, None, range0)
|