Mercurial > urweb

comparison tests/sendurl.ur @ 1108:82ac88b4e0a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper client-side attrifyString
author Adam Chlipala <adamc@hcoop.net>
date Fri, 01 Jan 2010 10:49:36 -0500
parents
children
comparison
equal deleted inserted replaced
1107:52571ca9b777 1108:82ac88b4e0a7
1 fun main () =
2 let
3 fun getIt () = return (bless "http://www.yahoo.com/")
4 in
5 s <- source <xml/>;
6 return <xml><body>
7 <dyn signal={signal s}/>
8
9 <button onclick={v <- rpc (getIt ()); set s <xml><a href={v}>Go!</a></xml>}/>
10 </body></xml>
11 end