requests with no result now yields a response with empty result (#40)

fsprojects · Jan 27, 2019 · 101ef93 · 101ef93
1 parent 5db9239
commit 101ef93
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/LSP/LanguageServer.fs b/src/LSP/LanguageServer.fs
@@ -218,7 +218,7 @@ let connect(serverFactory: ILanguageClient -> ILanguageServer, receive: BinaryRe
                 try 
                     match Async.RunSynchronously(task, 0, cancel.Token) with 
                     | Some(result) -> respond(send, id, result)
-                    | None -> ()
+                    | None -> respond(send, id, "{}")
                 with :? OperationCanceledException -> 
                     dprintfn "Request %d was cancelled" id
             pendingRequests.TryRemove(id) |> ignore