Mercurial > urweb

view tests/sequence.ur @ 1549:355a928871ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Gracefully accept browser's refusal to let us set certain AJAX headers
author Adam Chlipala <adam@chlipala.net>
date Fri, 26 Aug 2011 09:51:38 -0400
parents e976b187d73a
children
line wrap: on
line source
sequence seq

fun main () : transaction page =
        n <- nextval seq;
        return <html><body>
                {txt _ n}
        </body></html>