repositories
/
clean-tests.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9b5c1b2
)
.
author
Mart Lubbers
<mart@martlubbers.net>
Mon, 23 Mar 2020 07:33:40 +0000
(08:33 +0100)
committer
Mart Lubbers
<mart@martlubbers.net>
Mon, 23 Mar 2020 07:33:40 +0000
(08:33 +0100)
cloudiTasks/cloudiTasks.icl
patch
|
blob
|
history
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)
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)
// >-| 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 []
@! ()
>&^ viewSharedInformation []
@! ()