diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-12 14:19:15 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-12 14:19:15 -0400 |
| commit | 2f324fc9e868e0775e1401833b74af15652c6732 (patch) | |
| tree | 09447cbf30adcc3cc79bc4ebe766f74d8a60a4a9 /lib/ur | |
| parent | 84168a777e28ab53917bc3ed448cc90e6b00a4ed (diff) | |
Classes as optional arguments to Basis.tag
Diffstat (limited to 'lib/ur')
| -rw-r--r-- | lib/ur/basis.urs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 9eeb4891..50146dde 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -405,12 +405,10 @@ val nextval : sql_sequence -> transaction int (** XML *) -con css_class :: {Unit} -> Type -(* The argument lists categories of properties that this class could set usefully. *) +type css_class con tag :: {Type} -> {Unit} -> {Unit} -> {Type} -> {Type} -> Type - con xml :: {Unit} -> {Type} -> {Type} -> Type val cdata : ctx ::: {Unit} -> use ::: {Type} -> string -> xml ctx use [] val tag : attrsGiven ::: {Type} -> attrsAbsent ::: {Type} @@ -420,7 +418,8 @@ val tag : attrsGiven ::: {Type} -> attrsAbsent ::: {Type} -> [attrsGiven ~ attrsAbsent] => [useOuter ~ useInner] => [bindOuter ~ bindInner] => - $attrsGiven + option css_class + -> $attrsGiven -> tag (attrsGiven ++ attrsAbsent) ctxOuter ctxInner useOuter bindOuter -> xml ctxInner useInner bindInner |