annotate tests/pkeyEscape.ur @ 1930:5a7ae5acdcea

Add '-q' option to HTTP binaries
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Dec 2013 11:06:08 -0500
parents f7d9dc5d57eb
children
rev   line source
adam@1722 1 table t : {A : int, B : int}
adam@1722 2 PRIMARY KEY {{primary_key [#A] [[B = _]]}}
adam@1722 3
adam@1722 4 fun main () : transaction page =
adam@1722 5 queryI (SELECT * FROM t) (fn _ => return ());
adam@1722 6 return <xml/>