taskListItemProgress throws exception
The following code throws an exception (
taskListItemProgress: item not found) which is strange.
I would assume this is foolproof since the taskid is retrieved from the appendTask function. The similar
taskListItemValue does work as expected.
It is not a timing issue, if I wait a second before viewing the shared progress it crashes as well.
module test import iTasks import Data.Either Start w = doTasks t w t :: Task [(Int, TaskValue Int)] t = parallel [(Embedded, \stl->appendTask Embedded (\_->viewInformation ()  42) stl >>= \tid->viewSharedInformation ()  (sdsFocus (Right tid) (taskListItemProgress stl)) @! 0)]