module test

//import Data.Func
import iTasks

Start w = doTasks (onStartup par) w
where
	par :: Task [(Int, TaskValue ())]
	par = parallel [] []
//Start w = doTasks (onStartup $ m >>- traceValue) w
//
//m = parallel
//	[(Embedded, \stl->return 42)]
//	[]
//	[OnValue $ \tv->case tv of
//		NoValue = ?None
//		_ = ?None
//	]