Refactor FieldsGenerator

Author: 7sharp9

src/Myriad.Plugins/FieldsGenerator.fs

@@ -46,14 +46,11 @@ module internal Create =
             LongIdentWithDots.Create (parent |> List.map (fun i -> i.idText))
             |> SynType.CreateLongIdent
 
-        let camelCaseIdent (ident: Ident) =
-            Ident.Create(ident.idText.Substring(0, 1).ToLowerInvariant() + ident.idText.Substring(1))
-
         let pattern =
             let arguments =
                 fields
                 |> List.map (fun f -> let field = f.ToRcd
-                                      let name = SynPatRcd.CreateNamed(camelCaseIdent field.Id.Value, SynPatRcd.CreateWild)
+                                      let name = SynPatRcd.CreateNamed(Ast.Ident.asCamelCase field.Id.Value, SynPatRcd.CreateWild)
                                       SynPatRcd.CreateTyped(name, field.Type) |> SynPatRcd.CreateParen)
 
             SynPatRcd.CreateLongIdent(varIdent, arguments)
@@ -64,7 +61,7 @@ module internal Create =
                 |> List.map (fun f -> let field = f.ToRcd
                                       let fieldIdent = match field.Id with None -> failwith "no field name" | Some f -> f
                                       let name = LongIdentWithDots.Create([fieldIdent.idText])
-                                      let ident = SynExpr.CreateIdent(camelCaseIdent fieldIdent)
+                                      let ident = SynExpr.CreateIdent(Ast.Ident.asCamelCase fieldIdent)
                                       RecordFieldName(name, true), Some ident, None)
 
             let newRecord = SynExpr.Record(None, None, fields, range.Zero )