Commit 796b847a authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent 1f18e60c
......@@ -99,8 +99,9 @@ where
# (a,tst=:{activated}) = taska {tst & tasknr = [-1:tasknr]}
| not activated = (a,tst)
| not (pred a)
# tst = deleteSubTasksAndThreads tasknr tst
= (a,{tst & activated = False})
# tst = deleteSubTasksAndThreads [0:tasknr] tst
= doTask {tst & tasknr = tasknr}
// = (a,{tst & activated = False})
= (a,tst)
// ******************************************************************************************************
......
......@@ -206,7 +206,7 @@ where
# (wfls,tst=:{html}) = workflowProcessStore (\_ -> (maxid,nwfls)) tst // update workflow process administration
# (_,tst) = (getTask wfl) {tst & html = BT []} // calculate workflow to delete for the last time to obtain all its itasks in the task tree
# tst = deleteSubTasksAndThreads [entry] tst // delete all iTask storage of this process ...
= (True,{tst & html = html}) // if everything is fine it should always succeed
= (True,{tst & html = html, activated = True}) // if everything is fine it should always succeed
suspendMe :: (Task Void)
suspendMe = suspendMe`
......
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