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

refactor: check hash after verifying module artifact exists

Browse source
This commit is contained in:
tydeu 2021-08-22 03:40:09 -04:00
parent 4ce8716b99
commit 332af4c262
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Lake/BuildModule.lean
View file

@ -76,9 +76,9 @@ def checkModuleTrace [GetMTime a] (artifact : a)
let leanHash := Hash.compute contents
let maxMTime := max leanMTime depTrace.mtime
let fullHash := Hash.mix leanHash depTrace.hash
let sameHash ← checkIfSameHash fullHash hashFile
try
discard <| getMTime artifact -- ensure the artifact actually exists
let sameHash ← checkIfSameHash fullHash hashFile
let mtime := ite sameHash 0 maxMTime
(sameHash, ⟨fullHash, mtime⟩)
catch _ =>