diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-02-08 11:19:09 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-02-08 11:22:08 +0100 |
| commit | 68db732f12980e592c610085192d93457f312607 (patch) | |
| tree | 1068e035e71b57bff18f538ff5e6fe2113bf1764 /toplevel | |
| parent | 5d9eaa378277ed96456fec5a2037a8da4f38c8e0 (diff) | |
Improving error message with missing patterns in the presence of
multiple patterns.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 89c33cb6f..c0a99fe75 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -1207,7 +1207,7 @@ let explain_unused_clause env pats = let explain_non_exhaustive env pats = str "Non exhaustive pattern-matching: no clause found for " ++ str (String.plural (List.length pats) "pattern") ++ - spc () ++ hov 0 (pr_sequence pr_cases_pattern pats) + spc () ++ hov 0 (prlist_with_sep pr_comma pr_cases_pattern pats) let explain_cannot_infer_predicate env sigma typs = let env = make_all_name_different env in |