move showOutput into compute remote

This commit is contained in:
Joey Hess 2025-03-04 10:02:33 -04:00
parent 52f51d065a
commit b395bd4f56
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 1 additions and 1 deletions

View file

@ -97,7 +97,6 @@ perform o r = do
, Remote.Compute.computeReproducible = False
}
fast <- Annex.getRead Annex.fast
showOutput
Remote.Compute.runComputeProgram program state
(Remote.Compute.ImmutableState False)
(getInputContent fast)

View file

@ -374,6 +374,7 @@ runComputeProgram (ComputeProgram program) state (ImmutableState immutablestate)
, std_out = CreatePipe
, env = Just environ
}
showOutput
starttime <- liftIO currentMonotonicTimestamp
state' <- bracket
(liftIO $ createProcess pr)