diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2014-08-01 11:43:44 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2014-08-01 11:43:44 -0400 |
| commit | 32aa8589761b58e24715818a7b3af73d69055b27 (patch) | |
| tree | d48bf4300318cd966cab3547488c477feaf40119 /tests/data_attr.ur | |
| parent | 619ee0bb2735f0be87484175ab10fbb6579d723b (diff) | |
'aria-*' attributes
Diffstat (limited to 'tests/data_attr.ur')
| -rw-r--r-- | tests/data_attr.ur | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/data_attr.ur b/tests/data_attr.ur index 80dda857..4462dc10 100644 --- a/tests/data_attr.ur +++ b/tests/data_attr.ur @@ -1,5 +1,5 @@ fun dynd r = return <xml><body> - <div data={data_attr r.Attr r.Value}>How about that?</div> + <div data={data_attr data_kind r.Attr r.Value}>How about that?</div> </body></xml> fun main () : transaction page = @@ -7,7 +7,7 @@ fun main () : transaction page = a <- source ""; v <- source ""; return <xml><body> - <div data-foo="hi" data-bar="bye" data-baz="why">Whoa there, cowboy!</div> + <div data-foo="hi" aria-something="wow" data-bar="bye" data-baz="why">Whoa there, cowboy!</div> <hr/> @@ -20,7 +20,7 @@ fun main () : transaction page = <ctextbox source={a}/> = <ctextbox source={v}/> <button onclick={fn _ => - a <- get a; v <- get v; set s <xml><div data={data_attr a v}>OHO!</div></xml>}/> + a <- get a; v <- get v; set s <xml><div data={data_attr data_kind a v}>OHO!</div></xml>}/> <hr/> <dyn signal={signal s}/> </body></xml> |