Commit f7a4d0a0 authored by Bas Lijnse's avatar Bas Lijnse

Made default task list filter explicit in taskserver

parent 7530662b
Pipeline #35771 passed with stage
in 6 minutes and 57 seconds
......@@ -55,7 +55,8 @@ where
queueAll :: !*IWorld -> *IWorld
queueAll iworld
# (mbIndex,iworld) = read (sdsFocus defaultValue taskListMetaData) EmptyContext iworld //FIXME? Is the default filter what we want here?
# param = (TaskId 0 0, TaskId 0 0, fullTaskListFilter, fullExtendedTaskListFilter)
# (mbIndex,iworld) = read (sdsFocus param taskListMetaData) EmptyContext iworld
= case mbIndex of
Ok (ReadingDone (_,index)) = foldl (\w {TaskMeta|taskId=(TaskId instanceNo _)}-> queueEvent instanceNo ResetEvent w) iworld index
_ = iworld
......
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