Mercurial > urweb

view demo/counter.ur @ 2207:f0f7bf234893

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removes DBMS choice override from compiler.sml (which was there for debugging).
author Ziv Scully <ziv@mit.edu>
date Fri, 30 May 2014 12:00:00 -0400
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