diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-03-28 11:13:36 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-28 11:13:36 -0400 |
commit | 0168071775d98602c427b4b915fb6489cc2f10ff (patch) | |
tree | efba87fb9b2c9f5f7349dbe277b4a928bc0a2e66 /tests | |
parent | 754569fc0cf4affbf1227c44059352316a61fa24 (diff) |
Marshalcheck
Diffstat (limited to 'tests')
-rw-r--r-- | tests/chat.ur | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/chat.ur b/tests/chat.ur index 2d79cd00..b982836d 100644 --- a/tests/chat.ur +++ b/tests/chat.ur @@ -25,7 +25,15 @@ fun chat id = logTail <- source logHead; let - fun join () = subscribe ch + fun getCh () = + r <- oneRow (SELECT t.Chan FROM t WHERE t.Id = {[id]}); + case r.T.Chan of + None => error <xml>Channel disappeared</xml> + | Some ch => return ch + + fun join () = + ch <- getCh (); + subscribe ch fun onload () = let @@ -42,6 +50,7 @@ fun chat id = end fun speak line = + ch <- getCh (); send ch line fun doSpeak () = |