Allow Body tags inside cformTags

This is required by Bootstrap. For example, see
  http://getbootstrap.com/components/#alerts-dismissible

1 files changed, 2 insertions, 2 deletions

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) []