mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-10 14:38:39 +00:00
13 lines
391 B
Forth
13 lines
391 B
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
open Fantomas.FCS.Syntax
|
|
open Fantomas.FCS.Text.Range
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal SynSimplePats =
|
|
|
|
let create (pats : SynSimplePat list) : SynSimplePats =
|
|
match pats with
|
|
| [] -> SynSimplePats.SimplePats ([], [], range0)
|
|
| pats -> SynSimplePats.SimplePats (pats, List.replicate (pats.Length - 1) range0, range0)
|