Commit cc48e634 authored by Mart Lubbers's avatar Mart Lubbers

use new deferred tasktree nodes

parent 61f95c21
......@@ -47,11 +47,11 @@ where
NoValue
{TaskEvalInfo|lastEvent=ts,removedTasks=[],refreshSensitive=True}
rep
(TCBasic taskId ts (JSONString "") False)
(TCBasic taskId ts (DeferredJSONNode $ JSONString "") False)
, iworld)
_ = (exc "This tty was already open", iworld)
eval _ _ _ tree=:(TCBasic taskId ts (JSONString acc) _) iworld
eval _ _ _ tree=:(TCBasic taskId ts (DeferredJSONNode (JSONString acc)) _) iworld
# (mtty, iworld) = getResource iworld
= case mtty of
[] = (exc"TTY resource lost", iworld)
......@@ -85,7 +85,7 @@ where
NoValue
{TaskEvalInfo|lastEvent=ts,removedTasks=[],refreshSensitive=True}
rep
(TCBasic taskId ts (JSONString newacc) False)
(TCBasic taskId ts (DeferredJSONNode $ JSONString newacc) False)
, iworld)
eval _ event evalOpts tree=:(TCDestroy _) iworld=:{IWorld|resources,world}
......
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