summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Sergey Mironov <grrwlf@gmail.com>2014-08-17 18:28:37 +0000
committerGravatar Sergey Mironov <grrwlf@gmail.com>2014-08-17 18:28:37 +0000
commit3ca2bc2e448b4e41a0d2fe9bfe642b2f8935794a (patch)
tree21af5eae9ea18e849d7d2fc3c0bdfc64a2f17d92
parent31d4626ce7c03b354706c6b369fdce35a83a944b (diff)
Allow Body tags inside cformTags
This is required by Bootstrap. For example, see http://getbootstrap.com/components/#alerts-dismissible
-rw-r--r--lib/ur/basis.urs4
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) []