Mercurial > urweb

view tests/dynSpan.ur @ 2237:e79ef5792c8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in redundancy checking and use finer formula for UPDATE statements.
author Ziv Scully <ziv@mit.edu>
date Sun, 05 Jul 2015 23:57:28 -0700
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>