.

[clean-tests.git] / cloudiTasks / cloudiTasks.icl

diff --git a/cloudiTasks/cloudiTasks.icl b/cloudiTasks/cloudiTasks.icl
index b80d5b0..6854cf6 100644 (file)
--- a/cloudiTasks/cloudiTasks.icl
+++ b/cloudiTasks/cloudiTasks.icl
@@ -10,11 +10,12 @@ master :: Task ()
 master
        = get applicationOptions
        >>- \eo->traceValue ("Master started on port " +++ toString eo.serverPort)
+//     >-| set 42 (remoteShare (sharedStore "bork" 42) {domain="localhost",port=9099})
 //     >-| asyncTask (ExistingNode "localhost" 9099) (blockWait 5)
 //     >-| asyncTask "localhost" 9090 (blockWait 5)
 //     >-| asyncTask (PrivateNode 9099) (traceValue 5 >-| traceValue 42)
-//     >-| asyncTaskSpawn 9099 (return 42)
-       >-| sleepSortPar [5,1,3,8]
+       >-| asyncTask "localhost" 9099 (updateInformation [] 5)
+//     >-| sleepSortPar [5,1,3,8]
        >&^ viewSharedInformation []
        @! ()