@@ -47,7 +47,7 @@ module Extensions =
47
47
CompletionItemKind.Reference
48
48
|]
49
49
50
- type TextDocumentSyncOptions =
50
+ type TextDocumentSyncOptions with
51
51
static member Default = {
52
52
OpenClose = None
53
53
Change = None
@@ -56,13 +56,13 @@ module Extensions =
56
56
Save = None
57
57
}
58
58
59
- type WorkspaceFoldersServerCapabilities =
59
+ type WorkspaceFoldersServerCapabilities with
60
60
static member Default = { Supported = None; ChangeNotifications = None }
61
61
62
- type FileOperationPatternOptions =
62
+ type FileOperationPatternOptions with
63
63
static member Default = { IgnoreCase = None }
64
64
65
- type FileOperationOptions =
65
+ type FileOperationOptions with
66
66
static member Default = {
67
67
DidCreate = None
68
68
WillCreate = None
@@ -77,7 +77,7 @@ module Extensions =
77
77
static member Default = {| WorkspaceFolders = None; FileOperations = None |}
78
78
79
79
80
- type ServerCapabilities =
80
+ type ServerCapabilities with
81
81
static member Default = {
82
82
TextDocumentSync = None
83
83
HoverProvider = None
@@ -117,10 +117,10 @@ module Extensions =
117
117
}
118
118
119
119
120
- type InitializeResult =
120
+ type InitializeResult with
121
121
static member Default = { Capabilities = ServerCapabilities.Default; ServerInfo = None }
122
122
123
- type CompletionItem =
123
+ type CompletionItem with
124
124
static member Create ( label : string ) = {
125
125
Label = label
126
126
LabelDetails = None
@@ -154,10 +154,10 @@ module Extensions =
154
154
| Report -> " report"
155
155
| End -> " end"
156
156
157
- type WorkDoneProgressEnd =
157
+ type WorkDoneProgressEnd with
158
158
static member Create (? message ) = { Kind = WorkDoneProgressKind.End.ToString(); Message = message }
159
159
160
- type WorkDoneProgressBegin =
160
+ type WorkDoneProgressBegin with
161
161
static member Create ( title , ? cancellable , ? message , ? percentage ) = {
162
162
Kind = WorkDoneProgressKind.Begin.ToString()
163
163
Title = title
@@ -166,7 +166,7 @@ module Extensions =
166
166
Percentage = percentage
167
167
}
168
168
169
- type WorkDoneProgressReport =
169
+ type WorkDoneProgressReport with
170
170
static member Create (? cancellable , ? message , ? percentage ) = {
171
171
Kind = WorkDoneProgressKind.Report.ToString()
172
172
Cancellable = cancellable
@@ -175,7 +175,7 @@ module Extensions =
175
175
}
176
176
177
177
178
- type WorkspaceEdit =
178
+ type WorkspaceEdit with
179
179
static member DocumentChangesToChanges ( edits : TextDocumentEdit []) =
180
180
edits
181
181
|> Array.map ( fun edit ->
0 commit comments