Mercurial > urweb

view demo/counter.ur @ 1611:217384f4b8ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak error message about Basis.get to use that name instead of internal name
author Adam Chlipala <adam@chlipala.net>
date Thu, 24 Nov 2011 11:56:05 -0500
parents 4359e185d3af
children
line wrap: on
line source
(* Workhorse function, which [main] will call *)
fun counter n = return <xml><body>
  Current counter: {[n]}<br/>
  <a link={counter (n + 1)}>Increment</a><br/>
  <a link={counter (n - 1)}>Decrement</a>
</body></xml>

fun main () = counter 0