diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-30 11:48:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-30 11:48:56 -0400 |
| commit | 1a60a233b9349f320e67f35db1aa3b87d7c2a591 (patch) | |
| tree | 3c14a4c191641933ffd1dc31c3d4d34535687368 /src/urweb.grm | |
| parent | 7a3ba5558cb363006aae188e02dd57dda833d356 (diff) | |
Subforms type-checks; lists urlified and unurlified
Diffstat (limited to 'src/urweb.grm')
| -rw-r--r-- | src/urweb.grm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index 55a38c57..a74a48c8 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -1268,6 +1268,12 @@ xmlOne : NOTAGS (EApp ((EVar (["Basis"], "cdata", Infer) else if et = "subform" then (EApp ((EDisjointApp (#2 (#1 tag)), pos), xml), pos) + else if et = "subforms" then + (EApp ((EDisjointApp (#2 (#1 tag)), pos), + xml), pos) + else if et = "entry" then + (EApp ((EVar (["Basis"], "entry", Infer), pos), + xml), pos) else (EApp (#2 tag, xml), pos) else |