Bump version to 1.0.14

Author: janno-p

RELEASE_NOTES.md

@@ -1,3 +1,7 @@
+#### 1.0.14 - 05.09.2019
+
+* Fix capitalization of array item type names (regression).
+
 #### 1.0.13 - 04.09.2019
 
 * Fix: generated types should not contain properties with names that equal to parent type name.

docs/articles/release-notes.md

@@ -1,3 +1,7 @@
+#### 1.0.14 - 05.09.2019
+
+* Fix capitalization of array item type names (regression).
+
 #### 1.0.13 - 04.09.2019
 
 * Fix: generated types should not contain properties with names that equal to parent type name.

src/Shared/CodeDom.fs

@@ -340,6 +340,11 @@ module String =
             if not (isValidIdentifier fixedName) then failwithf "Invalid property name `%s`." fixedName
             fixedName
 
+        member this.Capitalize() =
+            match this with
+            | null | "" -> this
+            | _ -> sprintf "%c%s" (Char.ToUpper(this.[0])) (this.Substring(1))
+
 /// Type abstraction for code generator.
 type RuntimeType =
     /// Represents anonymous type (xs:any definition).

src/Shared/CodeDomGenerator.fs

@@ -179,7 +179,7 @@ module TypeBuilder =
                     IsWrappedArray = Some(true) }, [])
             | dspec, Definition(def) ->
                 let itemName = dspec.Name |> Option.get
-                let suffix = itemName.GetValidIdentifierName()
+                let suffix = itemName.GetValidIdentifierName().Capitalize()
                 let typ = Cls.create(name.GetValidIdentifierName() + suffix) |> Cls.addAttr TypeAttributes.Public |> Cls.describe (Attributes.xrdAnonymousType LayoutKind.Sequence)
                 let runtimeType = ProvidedType(typ, typ.Name)
                 build context runtimeType def

src/Shared/TypeBuilderContext.fs

@@ -192,7 +192,7 @@ type internal TypeBuilderContext =
                         CollectionType(this.GetOrCreateType(SchemaType(xn)), itemName, None)
                     | dspec, Definition(def) ->
                         let itemName = dspec.Name |> Option.get
-                        let suffix = itemName.GetValidIdentifierName()
+                        let suffix = itemName.GetValidIdentifierName().Capitalize()
                         let typ = Cls.create(name.XName.LocalName.GetValidIdentifierName() + suffix) |> Cls.addAttr TypeAttributes.Public |> Cls.describe (Attributes.xrdAnonymousType LayoutKind.Sequence)
                         nstyp |> Cls.addMember typ |> ignore
                         CollectionType(ProvidedType(typ, providedTypeFullName nstyp.Name typ.Name), itemName, Some(def))

src/XRoadProvider.net40/AssemblyInfo.fs

@@ -5,15 +5,15 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("XRoadProvider.net40")>]
 [<assembly: AssemblyProductAttribute("XRoadProvider")>]
 [<assembly: AssemblyDescriptionAttribute("Type providers for generating types and service interfaces for XRoad producers.")>]
-[<assembly: AssemblyVersionAttribute("1.0.13")>]
-[<assembly: AssemblyFileVersionAttribute("1.0.13")>]
-[<assembly: AssemblyInformationalVersionAttribute("1.0.13")>]
+[<assembly: AssemblyVersionAttribute("1.0.14")>]
+[<assembly: AssemblyFileVersionAttribute("1.0.14")>]
+[<assembly: AssemblyInformationalVersionAttribute("1.0.14")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "XRoadProvider.net40"
     let [<Literal>] AssemblyProduct = "XRoadProvider"
     let [<Literal>] AssemblyDescription = "Type providers for generating types and service interfaces for XRoad producers."
-    let [<Literal>] AssemblyVersion = "1.0.13"
-    let [<Literal>] AssemblyFileVersion = "1.0.13"
-    let [<Literal>] AssemblyInformationalVersion = "1.0.13"
+    let [<Literal>] AssemblyVersion = "1.0.14"
+    let [<Literal>] AssemblyFileVersion = "1.0.14"
+    let [<Literal>] AssemblyInformationalVersion = "1.0.14"

src/XRoadProvider/AssemblyInfo.fs

@@ -5,15 +5,15 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("XRoadProvider")>]
 [<assembly: AssemblyProductAttribute("XRoadProvider")>]
 [<assembly: AssemblyDescriptionAttribute("Type providers for generating types and service interfaces for XRoad producers.")>]
-[<assembly: AssemblyVersionAttribute("1.0.13")>]
-[<assembly: AssemblyFileVersionAttribute("1.0.13")>]
-[<assembly: AssemblyInformationalVersionAttribute("1.0.13")>]
+[<assembly: AssemblyVersionAttribute("1.0.14")>]
+[<assembly: AssemblyFileVersionAttribute("1.0.14")>]
+[<assembly: AssemblyInformationalVersionAttribute("1.0.14")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "XRoadProvider"
     let [<Literal>] AssemblyProduct = "XRoadProvider"
     let [<Literal>] AssemblyDescription = "Type providers for generating types and service interfaces for XRoad producers."
-    let [<Literal>] AssemblyVersion = "1.0.13"
-    let [<Literal>] AssemblyFileVersion = "1.0.13"
-    let [<Literal>] AssemblyInformationalVersion = "1.0.13"
+    let [<Literal>] AssemblyVersion = "1.0.14"
+    let [<Literal>] AssemblyFileVersion = "1.0.14"
+    let [<Literal>] AssemblyInformationalVersion = "1.0.14"