Commit 97373039 authored by Mart Lubbers's avatar Mart Lubbers

fix externalProcess

parent 063c7a9f
......@@ -57,7 +57,7 @@ where
>-= \_->tuple (Ok DestroyedResult)
//TODO: Support async sdss
eval (ph, pio) event {taskId,lastEval} iworld
| isRefreshForTask event taskId
| not (isRefreshForTask event taskId)
= (ValueResult NoValue (mkTaskEvalInfo lastEval) (mkUIIfReset event rep) (Task (eval (ph, pio))), iworld)
= apIWTransformer iworld $
read sdsout EmptyContext >-= \(ReadingDone (stdoutq, stderrq))->
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment