diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-08-09 16:13:44 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-08-09 16:13:44 -0400 |
| commit | 93fea8aa22abe42292b2d4f8fed07900280b64be (patch) | |
| tree | 9615a70ad05fea2d097618db0fbae1f7930bf06d | |
| parent | 657a062ff37997c09e68631a1347d54a5d95ff39 (diff) | |
Add 'rel' attribute to <a>
| -rw-r--r-- | lib/ur/basis.urs | 2 | ||||
| -rw-r--r-- | tests/arel.ur | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 59715a7e..f3e29c53 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -848,7 +848,7 @@ val ul : bodyTag boxAttrs val hr : bodyTag boxAttrs -val a : bodyTag ([Link = transaction page, Href = url, Target = string] ++ boxAttrs) +val a : bodyTag ([Link = transaction page, Href = url, Target = string, Rel = string] ++ boxAttrs) val img : bodyTag ([Alt = string, Src = url, Width = int, Height = int, Onabort = transaction unit, Onerror = transaction unit, diff --git a/tests/arel.ur b/tests/arel.ur new file mode 100644 index 00000000..5e181dea --- /dev/null +++ b/tests/arel.ur @@ -0,0 +1,3 @@ +fun main () : transaction page = return <xml><body> + <a link={main ()} rel="whoKnows">Here</a> +</body></xml> |