Mercurial > urweb

view tests/rpcSource.ur @ 1932:98895243b5b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change handling of returned text blobs, to activate the normal EWrite optimizations
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Dec 2013 18:22:10 -0500
parents 43f22a8f76cc
children
line wrap: on
line source
fun remote () =
    s <- source <xml/>;
    return (s, <xml><dyn signal={signal s}/></xml>)

fun main () : transaction page =
    x <- source <xml/>;
    return <xml><body>
      <dyn signal={signal x}/>
      <hr/>
      <button onclick={p <- rpc (remote ());
                       set x p.2;
                       set p.1 <xml>Hi!</xml>}/>
    </body></xml>