diff options
| author |  Sergey Mironov <grrwlf@gmail.com> | 2014-08-17 18:28:37 +0000 |
|---|---|---|
| committer | Sergey Mironov <grrwlf@gmail.com> | 2014-08-17 18:28:37 +0000 |
| commit | ae2184ba9f564d2df96edd042a8dc6318f1ba299 (patch) | |
| tree | 21af5eae9ea18e849d7d2fc3c0bdfc64a2f17d92 /lib/ur/basis.urs | |
| parent | e230d565f1f0604eee2c964dab5374d07c24ed6d (diff) | |
Allow Body tags inside cformTags
This is required by Bootstrap. For example, see
http://getbootstrap.com/components/#alerts-dismissible
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 4 |
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) [] |