Mercurial > urweb

annotate demo/counter.ur @ 1588:65d6488c82d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix confusing error message when record unification fails because enclosed types are incompatible
author Adam Chlipala <adam@chlipala.net>
date Sat, 05 Nov 2011 09:56:52 -0400
parents 4359e185d3af
children
rev   line source
adam@1301 1 (* Workhorse function, which [main] will call *)
adamc@416 2 fun counter n = return <xml><body>
adamc@416 3 Current counter: {[n]}<br/>
adamc@416 4 <a link={counter (n + 1)}>Increment</a><br/>
adamc@416 5 <a link={counter (n - 1)}>Decrement</a>
adamc@416 6 </body></xml>
adamc@416 7
adamc@416 8 fun main () = counter 0