Mercurial > urweb

view tests/dynSpan.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 cc58941da3e2
children
line wrap: on
line source
val x = 1

fun main () : transaction page =
    s <- source "!";
    return <xml><body>
      <dyn signal={x <- signal s; return <xml><span>{[x]}</span></xml>}/>
      <button onclick={x <- get s; set s (x ^ "!")}/>
    </body></xml>