13 lines
428 B
Text
13 lines
428 B
Text
import Lean.Data.Lsp
|
|
open IO Lean Lsp
|
|
|
|
def main : IO Unit := do
|
|
Ipc.runWith (←IO.appPath) #["--server"] do
|
|
let hIn ← Ipc.stdin
|
|
hIn.write (←FS.readBinFile "server_startup.log")
|
|
hIn.flush
|
|
let initResp ← Ipc.readResponseAs 0 InitializeResult
|
|
let regWatchReq ← Ipc.readRequestAs "client/registerCapability" Json
|
|
Ipc.writeNotification ⟨"initialized", InitializedParams.mk⟩
|
|
|
|
Ipc.shutdown 1
|