summaryrefslogtreecommitdiff
path: root/lib/ur/basis.urs
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-30 14:43:55 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-30 14:43:55 -0400
commit28977d57ddbf4bc42139154f30b5e96a49e46894 (patch)
treee2e88effef276f807d8f5599aa4eb8c9b1839fde /lib/ur/basis.urs
parentfe0742107983aeaea3db6715d2f71e2260ce05f1 (diff)
Megaform test
Diffstat (limited to 'lib/ur/basis.urs')
-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}