move showOutput into compute remote
This commit is contained in:
parent
52f51d065a
commit
b395bd4f56
2 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue