Mercurial > urweb

annotate tests/sequence.ur @ 1092:6f4b05fc4361

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Catch attempts to mention multiple versions of the same rooted module
author Adam Chlipala <adamc@hcoop.net>
date Fri, 25 Dec 2009 10:48:02 -0500
parents e976b187d73a
children
rev   line source
adamc@338 1 sequence seq
adamc@338 2
adamc@338 3 fun main () : transaction page =
adamc@338 4 n <- nextval seq;
adamc@338 5 return <html><body>
adamc@338 6 {txt _ n}
adamc@338 7 </body></html>