diff options
| author | Brian Campbell | 2018-01-15 18:14:58 +0000 |
|---|---|---|
| committer | Brian Campbell | 2018-01-15 18:14:58 +0000 |
| commit | b4c367435b335f6a7160ed379408425c66c39ae1 (patch) | |
| tree | f4b479637a41e099303821ddfeaead2bbb3a56a5 /src/ast_util.mli | |
| parent | fb8e8ce65d5ea13b92ec731820ed6c7a9a89f6a0 (diff) | |
Check monomorphisation case split size once for each pattern
(rather than for each argument separately)
Diffstat (limited to 'src/ast_util.mli')
| -rw-r--r-- | src/ast_util.mli | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ast_util.mli b/src/ast_util.mli index 68955387..dff122be 100644 --- a/src/ast_util.mli +++ b/src/ast_util.mli @@ -161,6 +161,7 @@ val map_letbind_annot : ('a annot -> 'b annot) -> 'a letbind -> 'b letbind val id_loc : id -> Parse_ast.l val kid_loc : kid -> Parse_ast.l +val pat_loc : 'a pat -> Parse_ast.l val def_loc : 'a def -> Parse_ast.l (* For debugging and error messages only: Not guaranteed to produce |