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 | |
| parent | 874e3bc001e64ba058d6632ebe22fbcdac16c00d (diff) | |
Added some type sigs required by SMLNJ
| -rw-r--r-- | src/getinfo.sml | 2 | ||||
| -rw-r--r-- | src/lsp.sml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/getinfo.sml b/src/getinfo.sml index d980afd3..d84f792b 100644 --- a/src/getinfo.sml +++ b/src/getinfo.sml @@ -32,7 +32,7 @@ structure E = ElabEnv structure L = Elab structure P = Print -fun isPosIn file row col span = +fun isPosIn (file: string) (row: int) (col: int) (span: ErrorMsg.span) = let val start = #first span val end_ = #last span 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 () |