Mercurial > urweb

view tests/channel.ur @ 709:0406e9cccb72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FOREIGN KEY, without ability to link NULL to NOT NULL (and with some lingering problems in row inference)
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 18:47:47 -0400
parents f73913d97a40
children
line wrap: on
line source
fun main () : transaction page =
    ch <- channel;
    let
        fun make () =
            subscribe ch;
            send ch "Hello world!"

        fun echo () =
            msg <- recv ch;
            alert(msg);
            echo ()

        fun onload () =
            make ();
            echo ()

        fun haveAnother () =
            send ch "Here's another."
    in
        return <xml><body onload={onload ()}>
          <button value="Another?" onclick={haveAnother ()}/>
        </body></xml>
    end