Mercurial > urweb

view tests/sequence.ur @ 853:19fdeef40ada

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Factor out common request functionality, in preparation for supporting different protocols
author Adam Chlipala <adamc@hcoop.net>
date Tue, 23 Jun 2009 14:05:12 -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>