diff options
| author | Jon French | 2018-05-01 16:54:05 +0100 |
|---|---|---|
| committer | Jon French | 2018-05-01 16:59:26 +0100 |
| commit | 92bdfb613b35a913aee7e954b7f7a2d62b39d302 (patch) | |
| tree | 960d87755bd517005d40c5033085758aef6f1414 /src/parser.mly | |
| parent | 1dc9f51dc547fc2a5f72095a49f49c540b96a71b (diff) | |
add type annotation patterns to mpats
Diffstat (limited to 'src/parser.mly')
| -rw-r--r-- | src/parser.mly | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/parser.mly b/src/parser.mly index adf99ede..d41964b7 100644 --- a/src/parser.mly +++ b/src/parser.mly @@ -1241,6 +1241,9 @@ atomic_mpat: { mk_mpat (MP_list []) $startpos $endpos } | LsquareBar mpat_list RsquareBar { mk_mpat (MP_list $2) $startpos $endpos } + | atomic_mpat Colon typ + { mk_mpat (MP_typ ($1, $3)) $startpos $endpos } + mpexp: |