Mercurial > urweb

annotate tests/ascdesc.ur @ 2110:9e9c915f554c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
A new MonoReduce optimization for lifting 'let' out of field projection; JavaScript compilation for exponentiation
author Adam Chlipala <adam@chlipala.net>
date Sun, 01 Feb 2015 12:29:14 -0500
parents 6f046b4bad24
children
rev   line source
adam@1543 1 table t : { A : int }
adam@1543 2
adam@1543 3 fun sortEm b =
adam@1543 4 queryX1 (SELECT * FROM t ORDER BY t.A {if b then sql_asc else sql_desc})
adam@1543 5 (fn r => <xml>{[r.A]}; </xml>)
adam@1543 6
adam@1543 7 fun main () : transaction page = return <xml><body>
adam@1543 8 <a link={sortEm True}>Ascending</a><br/>
adam@1543 9 <a link={sortEm False}>Descending</a>
adam@1543 10 </body></xml>