Commit 97373039 authored by Mart Lubbers's avatar Mart Lubbers

fix externalProcess

parent 063c7a9f
......@@ -49,7 +49,7 @@ where
(Error e, iworld) = (ExceptionResult e, iworld)
(Ok phpio, iworld) = eval phpio event evalOpts iworld
eval (ph, pio) DestroyEvent {TaskEvalOpts|taskId} iworld
eval (ph, pio) DestroyEvent {TaskEvalOpts|taskId} iworld
# iworld = clearTaskSDSRegistrations ('DS'.singleton taskId) iworld
= apIWTransformer iworld
$ liftOSErr (terminateProcess ph)
......@@ -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