mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-05 03:58:40 +00:00
15 lines
432 B
Forth
15 lines
432 B
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
open System
|
|
open System.Text
|
|
open Fantomas.FCS.Syntax
|
|
open Myriad.Core
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal Ident =
|
|
let lowerFirstLetter (x : Ident) : Ident =
|
|
let result = StringBuilder x.idText.Length
|
|
result.Append (Char.ToLowerInvariant x.idText.[0]) |> ignore
|
|
result.Append x.idText.[1..] |> ignore
|
|
Ident.Create ((result : StringBuilder).ToString ())
|