Mercurial > urweb

annotate tests/aborter2.ur @ 1688:8c2e8d41a8f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct an SQL grammar omission (thanks to Alexei Golovko for spotting the problem)
author Adam Chlipala <adam@chlipala.net>
date Sat, 25 Feb 2012 15:34:44 -0500
parents 7009b0ac1501
children
rev   line source
adamc@425 1 table t : { X : int }
adamc@425 2
adamc@425 3 fun main () : transaction page =
adamc@425 4 v <- query (SELECT * FROM t)
adamc@425 5 (fn r (_ : int) => return (error <xml>Shot down!</xml>))
adamc@425 6 0;
adamc@425 7 return <xml>Result: {[v]}</xml>