Mercurial > urweb

view tests/sql_ops.ur @ 1542:dc4c61363d0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add timestamps to 'app.js' filenames, to prevent inappropriate caching by browsers
author Adam Chlipala <adam@chlipala.net>
date Fri, 19 Aug 2011 08:59:01 -0400
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>