From eb64746b388cd3a3864e70039a0c04929b6bbd61 Mon Sep 17 00:00:00 2001
From: Sergey Mironov <grrwlf@gmail.com>
Date: Fri, 6 Dec 2013 13:59:39 +0400
Subject: Add activeHead tag.

activeHead is similar to active but produces xhead instead of xbody
---
 lib/ur/basis.urs | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 4931c97a..7637f8fa 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -782,6 +782,9 @@ val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> [ctx ~ [Dyn]] =
 val active : unit
              -> tag [Code = transaction xbody] body [] [] []
 
+val activeHead : unit
+             -> tag [Code = transaction xhead] head [] [] []
+
 val head : unit -> tag [] html head [] []
 val title : unit -> tag [] head [] [] []
 val link : unit -> tag [Id = id, Rel = string, Typ = string, Href = url, Media = string] head [] [] []
-- 
cgit v1.2.3