.
authorMart Lubbers <mart@martlubbers.net>
Mon, 23 Mar 2020 07:33:40 +0000 (08:33 +0100)
committerMart Lubbers <mart@martlubbers.net>
Mon, 23 Mar 2020 07:33:40 +0000 (08:33 +0100)
cloudiTasks/cloudiTasks.icl

index b80d5b0..6854cf6 100644 (file)
@@ -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 []
        @! ()