3 import iTasks, iTasks.Extensions.DateTime
6 cleanupHook (traceValue "Cleanup") (viewInformation () [] "Task that cleans up")
7 >>= viewInformation "Stepped" []
8 >>| cleanupHook (waitForTimer 1 >>- \_->traceValue "Cleanup") (viewInformation () [] "Task that cleans up")
9 >>= viewInformation "Stepped" []