annotate tests/ascdesc.ur @ 2155:7ce804ecd56b

A number of bug fixes in the manual
author Adam Chlipala <adam@chlipala.net>
date Thu, 11 Jun 2015 19:38:03 -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>