diff options
| author |  Simon Van Casteren <simon.van.casteren@gmail.com> | 2020-01-08 12:11:18 +0100 |
|---|---|---|
| committer | Simon Van Casteren <simon.van.casteren@gmail.com> | 2020-01-08 12:11:18 +0100 |
| commit | 7ebc4f3ff8081424f0e227142ac76bb3f7fc4a20 (patch) | |
| tree | ed782cade690b99fd7954318ec64cb770568ffc7 /src/lsp.sml | |
| parent | 874e3bc001e64ba058d6632ebe22fbcdac16c00d (diff) | |
Added some type sigs required by SMLNJ
Diffstat (limited to 'src/lsp.sml')
| -rw-r--r-- | src/lsp.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lsp.sml b/src/lsp.sml index ef12bbac..d11aab3f 100644 --- a/src/lsp.sml +++ b/src/lsp.sml @@ -267,7 +267,7 @@ fun elabFileAndSendDiags (state: state) (toclient: LspSpec.toclient) (documentUr let val fileName = #path documentUri val res = elabFile state fileName - fun eq_diag d1 d2 = #range d1 = #range d2 andalso #message d1 = #message d2 + fun eq_diag (d1: LspSpec.diagnostic) (d2: LspSpec.diagnostic) = #range d1 = #range d2 andalso #message d1 = #message d2 val diags = uniq eq_diag (#2 res) in (case #1 res of @@ -558,7 +558,7 @@ fun handleDocumentDidChange (state: state) (toclient: LspSpec.toclient) (p: LspS State.insertText fileName (List.foldl applyContentChange (#text s) (#contentChanges p)) end -fun runInBackground toclient (fileName: string) (f: unit -> unit): unit = +fun runInBackground (toclient: LspSpec.toclient) (fileName: string) (f: unit -> unit): unit = BgThread.queueBgTask fileName ((fn () => (f () |