Skip to content

Commit a2024d1

Browse files
cartermpbaronfel
authored andcommitted
Open Implement Interface APIs (#6905)
1 parent bbcac70 commit a2024d1

File tree

2 files changed

+4
-10
lines changed

2 files changed

+4
-10
lines changed

src/fsharp/service/ServiceInterfaceStubGenerator.fs

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,6 @@ namespace FSharp.Compiler.SourceCodeServices
44

55
open System
66
open System.Diagnostics
7-
open System.Collections.Generic
87
open FSharp.Compiler
98
open FSharp.Compiler.Ast
109
open FSharp.Compiler.Range
@@ -102,7 +101,7 @@ module internal CodeGenerationUtils =
102101

103102
/// Capture information about an interface in ASTs
104103
[<RequireQualifiedAccess; NoEquality; NoComparison>]
105-
type internal InterfaceData =
104+
type InterfaceData =
106105
| Interface of SynType * SynMemberDefns option
107106
| ObjExpr of SynType * SynBinding list
108107
member x.Range =
@@ -168,7 +167,7 @@ type internal InterfaceData =
168167
| _ ->
169168
[||]
170169

171-
module internal InterfaceStubGenerator =
170+
module InterfaceStubGenerator =
172171
[<NoComparison>]
173172
type internal Context =
174173
{

src/fsharp/service/ServiceInterfaceStubGenerator.fsi

Lines changed: 2 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -2,25 +2,20 @@
22

33
namespace FSharp.Compiler.SourceCodeServices
44

5-
open System
6-
open System.Diagnostics
7-
open System.Collections.Generic
8-
open FSharp.Compiler
95
open FSharp.Compiler.Ast
106
open FSharp.Compiler.Range
117
open FSharp.Compiler.SourceCodeServices
12-
open FSharp.Compiler.AbstractIL.Internal.Library
138

149
#if !FX_NO_INDENTED_TEXT_WRITER
1510
/// Capture information about an interface in ASTs
1611
[<RequireQualifiedAccess; NoEquality; NoComparison>]
17-
type internal InterfaceData =
12+
type InterfaceData =
1813
| Interface of SynType * SynMemberDefns option
1914
| ObjExpr of SynType * SynBinding list
2015
member Range : range
2116
member TypeParameters : string[]
2217

23-
module internal InterfaceStubGenerator =
18+
module InterfaceStubGenerator =
2419

2520
/// Get members in the decreasing order of inheritance chain
2621
val getInterfaceMembers : FSharpEntity -> seq<FSharpMemberOrFunctionOrValue * seq<FSharpGenericParameter * FSharpType>>

0 commit comments

Comments
 (0)