Commit cc48e634 authored by Mart Lubbers's avatar Mart Lubbers

use new deferred tasktree nodes

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