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/initial_check.ml | |
| parent | 1dc9f51dc547fc2a5f72095a49f49c540b96a71b (diff) | |
add type annotation patterns to mpats
Diffstat (limited to 'src/initial_check.ml')
| -rw-r--r-- | src/initial_check.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/initial_check.ml b/src/initial_check.ml index b766daa1..3f7a7052 100644 --- a/src/initial_check.ml +++ b/src/initial_check.ml @@ -782,6 +782,7 @@ let rec to_ast_mpat k_env def_ord (Parse_ast.MP_aux(mpat,l)) = | Parse_ast.MP_list(mpats) -> MP_list(List.map (to_ast_mpat k_env def_ord) mpats) | Parse_ast.MP_cons(pat1, pat2) -> MP_cons (to_ast_mpat k_env def_ord pat1, to_ast_mpat k_env def_ord pat2) | Parse_ast.MP_string_append (pat1, pat2) -> MP_string_append (to_ast_mpat k_env def_ord pat1, to_ast_mpat k_env def_ord pat2) + | Parse_ast.MP_typ (mpat, typ) -> MP_typ (to_ast_mpat k_env def_ord mpat, to_ast_typ k_env def_ord typ) ), (l,())) |