Commitef1fb6b

committed

Put Deprecated message into FSComp.txt - relates todotnet#95

1 parentfa5e972 commitef1fb6bCopy full SHA for ef1fb6b

File tree

-2

lines changed

-2

lines changed

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -1022,6 +1022,7 @@ lexfltSeparatorTokensOfPatternMatchMisaligned,"The '\|' tokens separating rules o`
`1022`	`1022`	`1130,nrInvalidFieldLabel,"Invalid field label"`
`1023`	`1023`	`1132,nrInvalidExpression,"Invalid expression '%s'"`
`1024`	`1024`	`1133,nrNoConstructorsAvailableForType,"No constructors are available for the type '%s'"`
	`1025`	`+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.""`
`1025`	`1026`	`# -----------------------------------------------------------------------------`
`1026`	`1027`	`# ilwrite.fs errors`
`1027`	`1028`	`# -----------------------------------------------------------------------------`

Lines changed: 1 addition & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1878,8 +1878,7 @@ let rec ApplyUnionCaseOrExn (makerForUnionCase,makerForExnTag) m cenv env overal`
`1878`	`1878`
`1879`	`1879`	`\| Item.UnionCase(ucinfo,showDeprecated) ->`
`1880`	`1880`	`if showDeprecated then`
`1881`		`- 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`
`1882`		`- warning(Deprecated(message,m))`
	`1881`	`+ warning(Deprecated(FSComp.SR.nrUnionTypeNeedsQualifiedAccess(ucinfo.Name,ucinfo.Tycon.DisplayName) \|> snd,m))`
`1883`	`1882`
`1884`	`1883`	`let ucref = ucinfo.UnionCaseRef`
`1885`	`1884`	`CheckUnionCaseAttributes cenv.g ucref m \|> CommitOperationResult`

Comments

(0)