Mercurial > urweb

comparison tests/channel.ur @ 668:b0c1a46b1f15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First message send delivered, but not interpreted
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Mar 2009 15:05:07 -0400
parents
children f68eee90dbcf
comparison
equal deleted inserted replaced
667:a93d5324f400 668:b0c1a46b1f15
1 fun main () : transaction page =
2 ch <- channel;
3 let
4 fun onload () =
5 subscribe ch;
6 send ch "Hello world!"
7 in
8 return <xml><body onload={onload ()}>
9
10 </body></xml>
11 end