old/sharestore/test.icl

   1 module test
   2
   3 import iTasks
   4
   5 Start w = startEngine main w
   6
   7 sh :: Shared [Int]
   8 sh = sharedStore "bork" [0,1,2]
   9
  10 main :: Task [Int]
  11 main = viewSharedInformation () [] sh
  12         -|| (chooseAction [(Action "Empty", ())] >>- \()->upd (\_->[]) sh)