computation progress display

This commit is contained in:
Joey Hess 2025-03-05 13:46:06 -04:00
parent 4a4a614b0d
commit ccc454a791
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 66 additions and 23 deletions

View file

@ -101,6 +101,7 @@ perform o r = do
Remote.Compute.runComputeProgram program state
(Remote.Compute.ImmutableState False)
(getInputContent fast)
Nothing
(addComputed "adding" True r (reproducible o) chooseBackend Just fast)
next $ return True