Put Deprecated message into FSComp.txt - relates to dotnet#95

forki · Jan 26, 2015 · ef1fb6b · ef1fb6b
1 parent fa5e972
commit ef1fb6b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/fsharp/FSComp.txt b/src/fsharp/FSComp.txt
@@ -1022,6 +1022,7 @@ lexfltSeparatorTokensOfPatternMatchMisaligned,"The '|' tokens separating rules o
 1130,nrInvalidFieldLabel,"Invalid field label"
 1132,nrInvalidExpression,"Invalid expression '%s'"
 1133,nrNoConstructorsAvailableForType,"No constructors are available for the type '%s'"
+1134,nrUnionTypeNeedsQualifiedAccess,"The union type for union case '%s' was defined with the RequireQualifiedAccessAttribute. Include the name of the union type ('%s') in the name you are using.""
 # -----------------------------------------------------------------------------
 # ilwrite.fs errors
 # -----------------------------------------------------------------------------

diff --git a/src/fsharp/tc.fs b/src/fsharp/tc.fs
@@ -1878,8 +1878,7 @@ let rec ApplyUnionCaseOrExn (makerForUnionCase,makerForExnTag) m cenv env overal
 
     | Item.UnionCase(ucinfo,showDeprecated) ->   
         if showDeprecated then
-            let message = sprintf "The union type for union case '%s' was defined with the RequireQualifiedAccessAttribute. Include the name of the union type ('%s') in the name you are using.'" ucinfo.Name ucinfo.Tycon.DisplayName
-            warning(Deprecated(message,m))
+            warning(Deprecated(FSComp.SR.nrUnionTypeNeedsQualifiedAccess(ucinfo.Name,ucinfo.Tycon.DisplayName) |> snd,m))
 
         let ucref = ucinfo.UnionCaseRef 
         CheckUnionCaseAttributes cenv.g ucref m  |> CommitOperationResult