Mercurial > urweb

view tests/lower.ur @ 2160:72fe1cc704c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tag NULLs with their types in SQL, to help the DBMS do type inference
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Jul 2015 19:24:26 -0400
parents 2b312f6d4007
children
line wrap: on
line source
table lower : { A : string }

fun main () : transaction page =
    all <- queryX1 (SELECT *
                    FROM lower
                    WHERE lower(lower.A) LIKE '%foo')
                   (fn r => <xml>{[r.A]}<br/></xml>);
    return <xml><body>
      {all}
    </body></xml>