implementation module SmallUtil

/* Small utility functions...
*/

import iTasks 

actionTask :: Task Void
actionTask = viewInformation Void [] Void

launch :: (Task a) (ReadWriteShared (TaskList a) Void) -> Task Void | iTask a
launch task ts = appendTask Embedded (const task) ts @ const Void