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

feat: use lean --githash for Lean version checking

Browse source
This commit is contained in:
tydeu 2021-11-05 16:22:11 -04:00
parent eb73594ec0
commit 8dfd7fccfc
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Lake/Cli.lean
View file

@ -219,13 +219,14 @@ def verifyLeanVersion : CliM PUnit := do
let leanInstall ← getLeanInstall
let out ← IO.Process.output {
cmd := leanInstall.lean.toString,
args := #["--version"]
args := #["--githash"]
}
if out.exitCode == 0 then
unless out.stdout.drop 14 |>.startsWith uiLeanVersionString do
error s!"expected {uiLeanVersionString}, but got {out.stdout.trim}"
let githash := out.stdout.trim
unless githash == Lean.githash do
error s!"expected Lean commit {Lean.githash}, but got {githash}"
else
error s!"running `lean --version` exited with code {out.exitCode}"
error s!"running `lean --githash` exited with code {out.exitCode}"
/-- Output the detected installs and verify the Lean version. -/
def verifyInstall : CliM PUnit := do