diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-04 11:46:24 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-04 11:46:24 -0400 |
commit | 0e5d32d1caf9b4267c76193fc787e12ea7691fc8 (patch) | |
tree | 3979ccacac613495cad0e9aa5a76e8d8fba76b7b /tests/dynSpan.ur | |
parent | 6059e157bd5b18742f8546d5231150b061a24d1b (diff) |
Checking spans in dyns
Diffstat (limited to 'tests/dynSpan.ur')
-rw-r--r-- | tests/dynSpan.ur | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/dynSpan.ur b/tests/dynSpan.ur new file mode 100644 index 00000000..123adde2 --- /dev/null +++ b/tests/dynSpan.ur @@ -0,0 +1,8 @@ +val x = 1 + +fun main () : transaction page = + s <- source "!"; + return <xml><body> + <dyn signal={x <- signal s; return <xml><span>{[x]}</span></xml>}/> + <button onclick={x <- get s; set s (x ^ "!")}/> + </body></xml> |