Mercurial > urweb

annotate tests/sequence.ur @ 904:6d9538ce94d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix type class resolution infinite loop, discovered while meeting with Ezra
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Aug 2009 15:23:04 -0400
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>