Mercurial > urweb

view tests/sequence.ur @ 1841:184d00f7be74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add more HTML singleton tags, anticipating that others may make them available via the FFI
author Adam Chlipala <adam@chlipala.net>
date Mon, 31 Dec 2012 09:04:35 -0500
parents e976b187d73a
children
line wrap: on
line source
sequence seq

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