DibyashanuPati/PhysLean
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #382 from HEPLean/Web

Browse source 
feat: Fix free_simps
This commit is contained in:
Joseph Tooby-Smith 2025-03-10 15:06:36 +00:00 • committed by GitHub
commit 10dff81a36
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
6 changed files with 14 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/MetaPrograms/free_simps.lean
View file

@ -64,7 +64,7 @@ unsafe def processAllFiles : IO Unit := do
let tasks := files.map fun f =>
((IO.asTask $ IO.Process.run
{cmd := "lake", args := #["exe", "free_simps", f.toString]}), f)
tasks.toList.enum.forM fun (n, (t, path)) => do
tasks.toList.zipIdx.forM fun ((t, path), n) => do
let tn ← IO.wait (← t)
match tn with
| .ok x =>
@ -87,7 +87,7 @@ unsafe def processFileArray (files : Array FilePath) : IO Unit := do
let tasks := files.map fun f =>
((IO.asTask $ IO.Process.run
{cmd := "lake", args := #["exe", "free_simps","-file", f.toString]}), f)
tasks.toList.enum.forM fun (n, (t, path)) => do
tasks.toList.zipIdx.forM fun ((t, path), n) => do
let tn ← IO.wait (← t)
match tn with
| .ok x =>