Mercurial > urweb

view tests/selfRpc.ur @ 2191:849404a3af27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change behavior of SQL equality to do the intuitive thing for nullable types
author Adam Chlipala <adam@chlipala.net>
date Sun, 01 Nov 2015 17:02:16 -0500
parents 385a1b799a74
children
line wrap: on
line source
fun test () =
    k <- source <xml/>;
    return <xml><button onclick={r <- rpc (test ()); set k r}/></xml>

fun main () : transaction page =
    h <- test ();
    return <xml><body>{h}</body></xml>