summaryrefslogtreecommitdiff
path: root/tests/csdebug.ur
blob: 66ba0aead34a1ee478e3bce1829e25e44eb3e5b6 (plain)
1
2
3
4
5
fun main () : transaction page =
    n <- source 0;
    return <xml><body>
      <button onclick={n' <- get n; set n (n' + 1); debug ("Message: " ^ show n')}/>
    </body></xml>