From 1841386c2ad439363d735acc0550c495e040d217 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 16 Apr 2009 12:00:44 -0400
Subject: <link>

---
 lib/ur/basis.urs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/ur/basis.urs')

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 50146dde..cfb80850 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -452,11 +452,15 @@ con form = [Body, Form]
 con tabl = [Body, Table]
 con tr = [Body, Tr]
 
+type url
+val bless : string -> url
+
 val dyn : use ::: {Type} -> bind ::: {Type} -> unit
           -> tag [Signal = signal (xml body use bind)] body [] use bind
 
 val head : unit -> tag [] html head [] []
 val title : unit -> tag [] head [] [] []
+val link : unit -> tag [Rel = string, Typ = string, Href = url, Media = string] head [] [] []
 
 val body : unit -> tag [Onload = transaction unit] html body [] []
 con bodyTag = fn (attrs :: {Type}) =>
@@ -489,8 +493,6 @@ val ul : bodyTag []
 
 val hr : bodyTag []
 
-type url
-val bless : string -> url
 val a : bodyTag [Link = transaction page, Href = url, Onclick = transaction unit]
 
 val img : bodyTag [Src = url]
-- 
cgit v1.2.3