cleanup/test.icl

   1 module test
   2
   3 import iTasks, iTasks.Extensions.DateTime
   4
   5 Start w = doTasks (
   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" []
  10         ) w