mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-06 04:28:42 +00:00
18 lines
419 B
Forth
18 lines
419 B
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
open Fantomas.FCS.Xml
|
|
open Fantomas.FCS.Text.Range
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal PreXmlDoc =
|
|
let create (s : string) : PreXmlDoc =
|
|
let s = s.Split "\n"
|
|
|
|
for i = 0 to s.Length - 1 do
|
|
s.[i] <- " " + s.[i]
|
|
|
|
PreXmlDoc.Create (s, range0)
|
|
|
|
let create' (s : string seq) : PreXmlDoc =
|
|
PreXmlDoc.Create (Array.ofSeq s, range0)
|