Commit 97373039 authored by Mart Lubbers's avatar Mart Lubbers

fix externalProcess

parent 063c7a9f
...@@ -49,7 +49,7 @@ where ...@@ -49,7 +49,7 @@ where
(Error e, iworld) = (ExceptionResult e, iworld) (Error e, iworld) = (ExceptionResult e, iworld)
(Ok phpio, iworld) = eval phpio event evalOpts 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 # iworld = clearTaskSDSRegistrations ('DS'.singleton taskId) iworld
= apIWTransformer iworld = apIWTransformer iworld
$ liftOSErr (terminateProcess ph) $ liftOSErr (terminateProcess ph)
...@@ -57,7 +57,7 @@ where ...@@ -57,7 +57,7 @@ where
>-= \_->tuple (Ok DestroyedResult) >-= \_->tuple (Ok DestroyedResult)
//TODO: Support async sdss //TODO: Support async sdss
eval (ph, pio) event {taskId,lastEval} iworld 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) = (ValueResult NoValue (mkTaskEvalInfo lastEval) (mkUIIfReset event rep) (Task (eval (ph, pio))), iworld)
= apIWTransformer iworld $ = apIWTransformer iworld $
read sdsout EmptyContext >-= \(ReadingDone (stdoutq, stderrq))-> 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