unison/unison-src/race.u

7 lines
227 B
Plaintext
Raw Normal View History

do Remote
r := Remote.race (Duration.seconds 15) [
2017-11-21 01:13:43 +03:00
do Remote pure (Debug.watch "race.winner1" 1),
do Remote Remote.sleep (Duration.seconds 10); pure (Debug.watch "race.winner2" 2)
]
pure <| Debug.watch "result" r