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

@ -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)