X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=cloudiTasks%2FcloudiTasks.icl;h=f5dbaceea63b921beb1879ddd183a7e149f5e8a9;hb=dd851e8574c37cad729a3ba3b4e64a548bb4422e;hp=73dec053e17dbe57238096e0211b5905b2d3d824;hpb=63d47d22bdd59ff91e668736d971d13e979c9941;p=clean-tests.git

diff --git a/cloudiTasks/cloudiTasks.icl b/cloudiTasks/cloudiTasks.icl
index 73dec05..f5dbace 100644
--- a/cloudiTasks/cloudiTasks.icl
+++ b/cloudiTasks/cloudiTasks.icl
@@ -10,13 +10,11 @@ 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)
-	>-| asyncTaskSpawn 9099 (updateInformation [] 42)
-//	>-| (updateInformation [] 42 -&&- updateInformation [] 22) @. ("localhost", 9099)
-//	>-| asyncTaskSpawn 9099 (updateInformation [] 42 -&&- updateInformation [] 22)
+	>-| asyncTask "localhost" 9099 (updateInformation [] 5)
 //	>-| sleepSortPar [5,1,3,8]
 	>&^ viewSharedInformation []
 	@! ()