test.icl

   1 module test
   2
   3 //import Data.Func
   4 import iTasks
   5
   6 Start w = doTasks (onStartup par) w
   7 where
   8         par :: Task [(Int, TaskValue ())]
   9         par = parallel [] []
  10 //Start w = doTasks (onStartup $ m >>- traceValue) w
  11 //
  12 //m = parallel
  13 //      [(Embedded, \stl->return 42)]
  14 //      []
  15 //      [OnValue $ \tv->case tv of
  16 //              NoValue = ?None
  17 //              _ = ?None
  18 //      ]