summaryrefslogtreecommitdiff
path: root/lib/ur
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ur')
-rw-r--r--lib/ur/basis.urs3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 117f944c..b59ab26a 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -508,6 +508,7 @@ con html = [Html]
con head = [Head]
con body = [Body]
con form = [Body, Form]
+con subform = [Body, Subform]
con tabl = [Body, Table]
con tr = [Body, Tr]
@@ -570,7 +571,7 @@ val subform : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type}
val subforms : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type}
-> [[Form] ~ ctx] =>
nm :: Name -> [[nm] ~ use] =>
- xml [Body, Subform] [Entry = $bind] []
+ xml subform [Entry = $bind] []
-> xml ([Form] ++ ctx) use [nm = list ($bind)]
val entry : ctx ::: {Unit} -> bind ::: {Type}