Mercurial > urweb

annotate tests/sequence.ur @ 1611:217384f4b8ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak error message about Basis.get to use that name instead of internal name
author Adam Chlipala <adam@chlipala.net>
date Thu, 24 Nov 2011 11:56:05 -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>