Roll back 52a7252

dsyme · Jun 11, 2015 · 3d6cfcf · 3d6cfcf
1 parent 66109b7
commit 3d6cfcf
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 14 deletions.
diff --git a/src/fsharp/FSharp.Core/prim-types.fs b/src/fsharp/FSharp.Core/prim-types.fs
@@ -656,17 +656,17 @@ namespace Microsoft.FSharp.Core
 
     module LanguagePrimitives =  
 
-        [<Sealed>]
-        type (* internal *) ErrorStrings =
+
+        module (* internal *) ErrorStrings =
             // inline functions cannot call GetString, so we must make these bits public
-            static member AddressOpNotFirstClassString with get () = SR.GetString(SR.addressOpNotFirstClass)
-            static member NoNegateMinValueString with get () = SR.GetString(SR.noNegateMinValue)
+            let AddressOpNotFirstClassString = SR.GetString(SR.addressOpNotFirstClass)
+            let NoNegateMinValueString = SR.GetString(SR.noNegateMinValue)
             // needs to be public to be visible from inline function 'average' and others
-            static member InputSequenceEmptyString with get () = SR.GetString(SR.inputSequenceEmpty) 
+            let InputSequenceEmptyString = SR.GetString(SR.inputSequenceEmpty) 
             // needs to be public to be visible from inline function 'average' and others
-            static member InputArrayEmptyString with get () = SR.GetString(SR.arrayWasEmpty) 
+            let InputArrayEmptyString = SR.GetString(SR.arrayWasEmpty) 
             // needs to be public to be visible from inline function 'average' and others
-            static member InputMustBeNonNegativeString with get () = SR.GetString(SR.inputMustBeNonNegative)
+            let InputMustBeNonNegativeString = SR.GetString(SR.inputMustBeNonNegative)
 
         [<CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1034:NestedTypesShouldNotBeVisible")>]  // nested module OK              
         module IntrinsicOperators =        

diff --git a/src/fsharp/FSharp.Core/prim-types.fsi b/src/fsharp/FSharp.Core/prim-types.fsi
@@ -1015,23 +1015,22 @@ namespace Microsoft.FSharp.Core
         val inline DivideByInt< ^T >  : x:^T -> y:int -> ^T when ^T : (static member DivideByInt : ^T * int -> ^T) 
 
         /// <summary>For compiler use only</summary>
-        [<Sealed>]
-        type (* internal *) ErrorStrings = 
+        module (* internal *) ErrorStrings = 
 
             [<CompilerMessage("This value is for use by compiled F# code and should not be used directly", 1204, IsHidden=true)>]
-            static member InputSequenceEmptyString : string with get
+            val InputSequenceEmptyString : string
 
             [<CompilerMessage("This value is for use by compiled F# code and should not be used directly", 1204, IsHidden=true)>]
-            static member InputArrayEmptyString : string with get
+            val InputArrayEmptyString : string
 
             [<CompilerMessage("This value is for use by compiled F# code and should not be used directly", 1204, IsHidden=true)>]
-            static member AddressOpNotFirstClassString : string with get
+            val AddressOpNotFirstClassString : string
 
             [<CompilerMessage("This value is for use by compiled F# code and should not be used directly", 1204, IsHidden=true)>]
-            static member NoNegateMinValueString : string with get
+            val NoNegateMinValueString : string
 
             [<CompilerMessage("This value is for use by compiled F# code and should not be used directly", 1204, IsHidden=true)>]
-            static member InputMustBeNonNegativeString : string with get
+            val InputMustBeNonNegativeString : string
 
 
         //-------------------------------------------------------------------------