summaryrefslogtreecommitdiff
path: root/tests/sendurl.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-01-01 10:49:36 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-01-01 10:49:36 -0500
commit66ea568ab5cd2b187a305ef6d22c8cfaf2a6c629 (patch)
treea1c114af140aee012d6f75b186cb3c4fd4e9d9d4 /tests/sendurl.ur
parent76a84dd3fb97b56605292c4f0eab2febe3c6a7ed (diff)
Proper client-side attrifyString
Diffstat (limited to 'tests/sendurl.ur')
-rw-r--r--tests/sendurl.ur11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/sendurl.ur b/tests/sendurl.ur
new file mode 100644
index 00000000..8264305a
--- /dev/null
+++ b/tests/sendurl.ur
@@ -0,0 +1,11 @@
+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