Commit fac33850 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

*** empty log message ***


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@165 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent b57c94f8
......@@ -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