Mercurial > urweb

view tests/rpcN.ur @ 2291:50ad02829abd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make cache flushes happen immediately instead of at end of transaction.
author Ziv Scully <ziv@mit.edu>
date Tue, 17 Nov 2015 02:44:37 -0500
parents 5891f47d7cff
children
line wrap: on
line source
table t : { A : int }

fun main () : transaction page =
    let
        fun count a = r <- oneRow (SELECT COUNT( * ) AS N FROM t WHERE t.A = {[a]});
                      return r.N
    in
        s <- source 0;
        return <xml><body>
          <button value="Get It On!"
                  onclick={n <- count 3;
                           set s n}/><br/>
          <br/>
          Current: <dyn signal={n <- signal s; return <xml>{[n]}</xml>}/>
        </body></xml>
    end