diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-08-16 14:36:17 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-16 14:36:17 -0400 |
commit | 70cd2b655dd741ad04a98dbe6685ec2ec9e11fdd (patch) | |
tree | c7f699c2b19d9de56a7b72a0755b5e176e73e049 /src | |
parent | b4f1361d2dff2e180e4656efa491b275707cdf02 (diff) |
Testing type-class-parameterized functions
Diffstat (limited to 'src')
-rw-r--r-- | src/lacweb.grm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm index fd24ba31..4f316d74 100644 --- a/src/lacweb.grm +++ b/src/lacweb.grm @@ -427,6 +427,7 @@ eexp : eapps (eapps) | FN SYMBOL kcolon kind DARROW eexp (ECAbs (kcolon, SYMBOL, kind, eexp), s (FNleft, eexpright)) | FN SYMBOL COLON cexp DARROW eexp (EAbs (SYMBOL, SOME cexp, eexp), s (FNleft, eexpright)) | FN SYMBOL DARROW eexp (EAbs (SYMBOL, NONE, eexp), s (FNleft, eexpright)) + | FN UNDER COLON cexp DARROW eexp (EAbs ("_", SOME cexp, eexp), s (FNleft, eexpright)) | LBRACK cterm TWIDDLE cterm RBRACK DARROW eexp(EDisjoint (cterm1, cterm2, eexp), s (LBRACKleft, RBRACKright)) | FN UNIT DARROW eexp (let val loc = s (FNleft, eexpright) |