Mercurial > urweb

view tests/rpcDO.ur @ 1034:a779402841f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hooks for measuring how much interesting proving is going on in elaboration
author Adam Chlipala <adamc@hcoop.net>
date Tue, 17 Nov 2009 12:44:14 -0500
parents 9da62680adc5
children
line wrap: on
line source
datatype list t = Nil | Cons of t * list t

table t : {A : int}

fun main () : transaction page =
    let
        fun rows () =
            query (SELECT * FROM t)
            (fn r ls => return (Cons (r.T.A, ls)))
            Nil

        fun show ls =
            case ls of
                Nil => <xml/>
              | Cons (x, ls') => <xml>{[x]}<br/>{show ls'}</xml>
    in
        s <- source Nil;
        return <xml><body>
          <button value="Get It On!"
                  onclick={ls <- rows ();
                           set s ls}/><br/>
          <br/>
          Current: <dyn signal={ls <- signal s; return (show ls)}/>
        </body></xml>
    end