From 23a749a77bce20dfce1c49db338fde73eaab24cf Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Mon, 23 Mar 2020 08:33:40 +0100 Subject: [PATCH] . --- cloudiTasks/cloudiTasks.icl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 [] @! () -- 2.20.1