From: Mart Lubbers <mart@martlubbers.net>
Date: Mon, 23 Mar 2020 07:33:40 +0000 (+0100)
Subject: .
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=23a749a77bce20dfce1c49db338fde73eaab24cf;p=clean-tests.git

.
---

diff --git a/cloudiTasks/cloudiTasks.icl b/cloudiTasks/cloudiTasks.icl
index b80d5b0..6854cf6 100644
--- 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 []
 	@! ()