mirror of
https://github.com/Smaug123/WoofWare.Whippet
synced 2025-10-19 14:28:40 +00:00
Initial import of Fantomas client library (#6)
Some checks failed
.NET / build (Debug) (push) Has been cancelled
.NET / build (Release) (push) Has been cancelled
.NET / analyzers (push) Has been cancelled
.NET / build-nix (push) Has been cancelled
.NET / check-dotnet-format (push) Has been cancelled
.NET / check-nix-format (push) Has been cancelled
.NET / Check links (push) Has been cancelled
.NET / Check flake (push) Has been cancelled
.NET / nuget-pack (push) Has been cancelled
.NET / expected-pack (push) Has been cancelled
.NET / all-required-checks-complete (push) Has been cancelled
Some checks failed
.NET / build (Debug) (push) Has been cancelled
.NET / build (Release) (push) Has been cancelled
.NET / analyzers (push) Has been cancelled
.NET / build-nix (push) Has been cancelled
.NET / check-dotnet-format (push) Has been cancelled
.NET / check-nix-format (push) Has been cancelled
.NET / Check links (push) Has been cancelled
.NET / Check flake (push) Has been cancelled
.NET / nuget-pack (push) Has been cancelled
.NET / expected-pack (push) Has been cancelled
.NET / all-required-checks-complete (push) Has been cancelled
This commit is contained in:
15
WoofWare.Whippet.Fantomas/SynSimplePats.fs
Normal file
15
WoofWare.Whippet.Fantomas/SynSimplePats.fs
Normal file
@@ -0,0 +1,15 @@
|
||||
namespace WoofWare.Whippet.Fantomas
|
||||
|
||||
open Fantomas.FCS.Syntax
|
||||
open Fantomas.FCS.Text.Range
|
||||
|
||||
/// Methods for manipulating the SynSimplePats AST type. This type represents a collection of SynSimplePat entries,
|
||||
/// all tupled together (e.g. as in `fun (a, b : int) -> ...`).
|
||||
[<RequireQualifiedAccess>]
|
||||
module SynSimplePats =
|
||||
|
||||
/// Build a SynSimplePats by tupling together a bunch of individual patterns.
|
||||
let create (pats : SynSimplePat list) : SynSimplePats =
|
||||
match pats with
|
||||
| [] -> SynSimplePats.SimplePats ([], [], range0)
|
||||
| pats -> SynSimplePats.SimplePats (pats, List.replicate (pats.Length - 1) range0, range0)
|
Reference in New Issue
Block a user