Mercurial > urweb

view tests/dynSpan.ur @ 1424:7f6ac9f33d4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More information in error message about select of field from unbound table
author Adam Chlipala <adam@chlipala.net>
date Thu, 17 Feb 2011 14:18:18 -0500
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>