append-ed/test.icl

   1 module test
   2
   3 import qualified Data.Map as DM
   4 import iTasks
   5
   6 Start w = startEngine t w
   7
   8 t = withShared ["somedata"] \l->
   9              forever (chooseAction [((Action "Empty"), ())] >>- \_->set [] l)
  10         //-&&- updateSharedInformation [UpdateAs 11
  11         -&&- viewSharedInformation "View" [] l