Mercurial > urweb

view tests/sendurl.ur @ 1882:77cde56d41b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change Pthread thread creation logic to avoid Cygwin limitations with setting stack size
author Adam Chlipala <adam@chlipala.net>
date Mon, 14 Oct 2013 08:08:57 -0400
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