summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-07-20 12:21:30 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-07-20 12:21:30 -0400
commit26a8eaaa3429aea2e455d18ff9a0f6c661d90cef (patch)
treed6b95ce4db9a809fbe365dfc157c8663c4b57b90 /src
parent035e55c6c3d7d79a73f98e7d4c6a0e5e760c8cc8 (diff)
Form submission type-checking
Diffstat (limited to 'src')
-rw-r--r--src/lacweb.grm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm
index 0d2ab714..4fd3dc8e 100644
--- a/src/lacweb.grm
+++ b/src/lacweb.grm
@@ -285,7 +285,6 @@ eexp : eapps (eapps)
end)
| LPAREN eexp RPAREN DCOLON cexp (EAnnot (eexp, cexp), s (LPARENleft, cexpright))
- | eterm DOT ident (EField (eterm, ident), s (etermleft, identright))
eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright))
@@ -297,6 +296,7 @@ eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright))
| FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright))
| STRING (EPrim (Prim.String STRING), s (STRINGleft, STRINGright))
+ | path DOT ident (EField ((EVar path, s (pathleft, pathright)), ident), s (pathleft, identright))
| FOLD (EFold, s (FOLDleft, FOLDright))
| XML_BEGIN xml XML_END (xml)