Mercurial > urweb

view tests/dynSpan.ur @ 1512:dcc8abbc6dfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change cookie signature comparison to resist timing attacks (based on code suggested by Robin Green and Austin Seipp)
author Adam Chlipala <adam@chlipala.net>
date Tue, 19 Jul 2011 09:18:50 -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>