From 7ebc4f3ff8081424f0e227142ac76bb3f7fc4a20 Mon Sep 17 00:00:00 2001 From: Simon Van Casteren Date: Wed, 8 Jan 2020 12:11:18 +0100 Subject: Added some type sigs required by SMLNJ --- src/getinfo.sml | 2 +- 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 () -- cgit v1.2.3