annotate tests/ascdesc.ur @ 2004:67a6ba016a78

Fix a bug in GROUP BY generation [keeping within today's release]
author Adam Chlipala <adam@chlipala.net>
date Sat, 26 Apr 2014 11:15:21 -0400
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>