Files
WoofWare.Myriad/WoofWare.Myriad.Plugins/SynExpr/SynAttributes.fs
2024-08-25 19:23:23 +00:00

16 lines
359 B
Forth

namespace WoofWare.Myriad.Plugins
open Fantomas.FCS.Syntax
open Fantomas.FCS.Text.Range
[<RequireQualifiedAccess>]
module internal SynAttributes =
let ofAttrs (attrs : SynAttribute list) : SynAttributes =
attrs
|> List.map (fun a ->
{
Attributes = [ a ]
Range = range0
}
)