max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: server: redundant let

Browse source
This commit is contained in:
Sebastian Ullrich 2021-10-10 11:24:17 +02:00 • committed by Leonardo de Moura
parent 7fdc208c1f
commit 08dbf239a6
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Lean/Server/FileWorker.lean
View file

@ -146,9 +146,8 @@ section Initialization
-- ignore any output up to the last line
-- TODO: leanpkg should instead redirect nested stdout output to stderr
let stdout := stdout.split (· == '\n') |>.getLast!
let Except.ok paths ← pure (Json.parse stdout >>= fromJson?)
let Except.ok (paths : LeanPaths) ← pure (Json.parse stdout >>= fromJson?)
| throwServerError s!"invalid output from `{cmdStr}`:\n{stdout}\nstderr:\n{stderr}"
let paths : LeanPaths ← IO.ofExcept <| fromJson? paths
let sp ← getBuiltinSearchPath
let sp ← addSearchPathFromEnv sp
let sp := paths.oleanPath ++ sp