Mercurial > urweb

view tests/headDyn.ur @ 1856:3683d1a8c1c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Sigcheck phase to avoid issues with signatures in global initializers
author Adam Chlipala <adam@chlipala.net>
date Sat, 15 Jun 2013 08:18:47 -0400
parents 6817ddd6cf1f
children
line wrap: on
line source
fun main () : transaction page =
    x <- source <xml/>;
    return <xml>
      <head>
        <title>Test</title>
      </head>
      <body onload={set x <xml>boo</xml>}>
        <dyn signal={signal x}/>
      </body>
    </xml>

fun main2 () : transaction page =
    return <xml>
      <head>
        <title>Test</title>
      </head>
      <body>
        <button onclick={alert "Hi"}/>
      </body>
    </xml>