Mercurial > urweb

view tests/sql_ops.ur @ 1651:dfc854e478bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Error messages about applying 'dynClass' to tags that don't like it
author Adam Chlipala <adam@chlipala.net>
date Sat, 31 Dec 2011 13:31:00 -0500
parents 5d494183ca89
children
line wrap: on
line source
table t : { A : int, B : float }

val q = (SELECT t.A + t.A AS X, t.B * t.B AS Y FROM t)

fun main () : transaction page =
    xml <- queryX q (fn r => <xml>{[r.X]}, {[r.Y]}<br/></xml>);
    return <xml><body>{xml}</body></xml>