diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-20 12:21:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-20 12:21:30 -0400 |
| commit | 26a8eaaa3429aea2e455d18ff9a0f6c661d90cef (patch) | |
| tree | d6b95ce4db9a809fbe365dfc157c8663c4b57b90 /src | |
| parent | 035e55c6c3d7d79a73f98e7d4c6a0e5e760c8cc8 (diff) | |
Form submission type-checking
Diffstat (limited to 'src')
| -rw-r--r-- | src/lacweb.grm | 2 |
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) |