module test

import iTasks, iTasks.Extensions.DateTime

Start w = doTasks (
	cleanupHook (traceValue "Cleanup") (viewInformation () [] "Task that cleans up")
	>>= viewInformation "Stepped" []
	>>| cleanupHook (waitForTimer 1 >>- \_->traceValue "Cleanup") (viewInformation () [] "Task that cleans up")
	>>= viewInformation "Stepped" []
	) w