@@ -222,7 +222,7 @@ type FSharpDisplayContext(denv: TcGlobals -> DisplayEnv) =
222222
223223
224224[<Struct>]
225- type ObsoleteDiagnosticInfo =
225+ type FSharpObsoleteDiagnosticInfo =
226226 { IsError: bool
227227 DiagnosticId: string option
228228 Message: string option
@@ -373,7 +373,7 @@ type FSharpSymbol(cenv: SymbolEnv, item: unit -> Item, access: FSharpSymbol -> C
373373 member sym.TryGetAttribute < 'T >() =
374374 sym.Attributes |> Seq.tryFind ( fun attr -> attr.IsAttribute< 'T>())
375375
376- abstract ObsoleteDiagnosticInfo: ObsoleteDiagnosticInfo option
376+ abstract ObsoleteDiagnosticInfo: FSharpObsoleteDiagnosticInfo option
377377 default _.ObsoleteDiagnosticInfo = None
378378
379379type FSharpEntity ( cenv : SymbolEnv , entity : EntityRef , tyargs : TType list ) =
@@ -872,7 +872,7 @@ type FSharpEntity(cenv: SymbolEnv, entity: EntityRef, tyargs: TType list) =
872872 try x.MembersFunctionsAndValues with _ -> [||] :> _
873873
874874 override this.ObsoleteDiagnosticInfo =
875- TryGetEntityObsoleteInfo cenv.g entity |> Option.map ObsoleteDiagnosticInfo .FromDiagnosticInfo
875+ TryGetEntityObsoleteInfo cenv.g entity |> Option.map FSharpObsoleteDiagnosticInfo .FromDiagnosticInfo
876876
877877 member this.TryGetMetadataText () =
878878 match entity.TryDeref with
@@ -1317,7 +1317,7 @@ type FSharpField(cenv: SymbolEnv, d: FSharpFieldData) =
13171317 | Choice2Of3 ilFieldInfo -> TryGetILFieldObsoleteInfo cenv.g ilFieldInfo
13181318 | Choice3Of3 _ -> None
13191319
1320- infoOption |> Option.map ObsoleteDiagnosticInfo .FromDiagnosticInfo
1320+ infoOption |> Option.map FSharpObsoleteDiagnosticInfo .FromDiagnosticInfo
13211321
13221322 member private x.V = d
13231323
@@ -2568,7 +2568,7 @@ type FSharpMemberOrFunctionOrValue(cenv, d:FSharpMemberOrValData, item) =
25682568 | C minfo -> TryGetMethodObsoleteInfo minfo
25692569 | V vref -> TryGetFSharpObsoleteInfo cenv.g vref.Attribs
25702570
2571- infoOption |> Option.map ObsoleteDiagnosticInfo .FromDiagnosticInfo
2571+ infoOption |> Option.map FSharpObsoleteDiagnosticInfo .FromDiagnosticInfo
25722572
25732573type FSharpType ( cenv , ty : TType ) =
25742574
0 commit comments