From ae2184ba9f564d2df96edd042a8dc6318f1ba299 Mon Sep 17 00:00:00 2001
From: Sergey Mironov <grrwlf@gmail.com>
Date: Sun, 17 Aug 2014 18:28:37 +0000
Subject: Allow Body tags inside cformTags

This is required by Bootstrap. For example, see
  http://getbootstrap.com/components/#alerts-dismissible
---
 lib/ur/basis.urs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 39487aef..9d58ee66 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -1008,8 +1008,8 @@ val label : bodyTag ([For = id, Accesskey = string] ++ tableAttrs)
 
 con cformTag = fn (attrs :: {Type}) (inner :: {Unit}) =>
                   ctx ::: {Unit}
-                  -> [[Body] ~ ctx] =>
-                        unit -> tag attrs ([Body] ++ ctx) inner [] []
+                  -> [[Body] ~ ctx] => [[Body] ~ inner] =>
+                        unit -> tag attrs ([Body] ++ ctx) ([Body] ++ inner) [] []
 
 val ctextbox : cformTag ([Value = string, Size = int, Source = source string, Placeholder = string, Onchange = transaction unit,
                           Ontext = transaction unit] ++ boxAttrs) []
-- 
cgit v1.2.3