Mercurial > urweb

view tests/sendurl.ur @ 1659:8de2ea0a0701

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change linking argument order, based on reported problems in Ubuntu 11.10
author Adam Chlipala <adam@chlipala.net>
date Thu, 05 Jan 2012 19:23:34 -0500
parents 82ac88b4e0a7
children
line wrap: on
line source
fun main () =
    let
        fun getIt () = return (bless "http://www.yahoo.com/")
    in
        s <- source <xml/>;
        return <xml><body>
          <dyn signal={signal s}/>

          <button onclick={v <- rpc (getIt ()); set s <xml><a href={v}>Go!</a></xml>}/>
        </body></xml>
    end