diff --git a/src/FSharp.Data.Runtime.Utilities/NameUtils.fs b/src/FSharp.Data.Runtime.Utilities/NameUtils.fs index 8f4c6b3cd..7ad37a816 100644 --- a/src/FSharp.Data.Runtime.Utilities/NameUtils.fs +++ b/src/FSharp.Data.Runtime.Utilities/NameUtils.fs @@ -24,8 +24,10 @@ let private (|EOF|_|) c = [] let private (|LetterDigit|_|) = sat Char.IsLetterOrDigit + [] let private (|Upper|_|) = sat (fun c -> Char.IsUpper c || Char.IsDigit c) + [] let private (|Lower|_|) = sat (fun c -> Char.IsLower c || Char.IsDigit c) diff --git a/src/FSharp.Data.Runtime.Utilities/StructuralInference.fs b/src/FSharp.Data.Runtime.Utilities/StructuralInference.fs index 15b27aabf..f2c6f5f88 100644 --- a/src/FSharp.Data.Runtime.Utilities/StructuralInference.fs +++ b/src/FSharp.Data.Runtime.Utilities/StructuralInference.fs @@ -13,7 +13,8 @@ open FSharp.Data.Runtime.StructuralTypes open System.Text.RegularExpressions /// This is the internal DU representing all the valid cases we support, mapped from the public InferenceMode. -[] +[] type InferenceMode' = | NoInference /// Backward compatible mode. diff --git a/src/FSharp.Data.Runtime.Utilities/StructuralTypes.fs b/src/FSharp.Data.Runtime.Utilities/StructuralTypes.fs index 4dea0ac04..01100b314 100644 --- a/src/FSharp.Data.Runtime.Utilities/StructuralTypes.fs +++ b/src/FSharp.Data.Runtime.Utilities/StructuralTypes.fs @@ -20,7 +20,8 @@ type InferedProperty = /// For heterogeneous types (types that have multiple possible forms /// such as differently named XML nodes or records and arrays mixed together) /// this type represents the number of occurrences of individual forms -[] +[] type InferedMultiplicity = | Single | OptionalSingle @@ -188,23 +189,26 @@ type internal InferedTypeTag with /// Dummy type to represent that only "0" was found. /// Will be generated as 'int', unless it's converted to Bit. -[] +[] type Bit0 = Bit0 /// Dummy type to represent that only "1" was found /// Will be generated as 'int', unless it's converted to Bit -[] +[] type Bit1 = Bit1 /// Dummy type to represent that only one of "0" and "1" were found /// Will be generated as a 'bool', unless it's converted to another numerical type -[] +[] type Bit = Bit // ------------------------------------------------------------------------------------------------ /// Represents a transformation of a type -[] +[] [] type TypeWrapper = /// No transformation will be made to the type