Mercurial > urweb

annotate tests/whiteout.ur @ 2067:88841212f0ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
In computing command lines, put filenames inside of quotes, to support spaces and other funky characters nicely
author Adam Chlipala <adam@chlipala.net>
date Thu, 04 Sep 2014 08:40:14 -0400
parents f0224c7f12bb
children
rev   line source
adamc@684 1 table t : { Chan : option (channel unit) }
adamc@684 2
adamc@684 3 fun main () : transaction page =
adamc@684 4 ch <- channel;
adamc@684 5 dml (INSERT INTO t (Chan) VALUES ({[Some ch]}));
adamc@684 6 return <xml><body>Did it.</body></xml>