diff options
| author | Arnaud Spiwack | 2016-09-26 09:11:42 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2016-11-08 08:47:04 +0100 |
| commit | a79a62c9fb5690ff1043d9c0dd44f61cd535cc12 (patch) | |
| tree | 8879870a69f84c7f3f4a82c484c2d56908f91840 /engine/proofview.ml | |
| parent | 0f5e89ec54bc613f59ce971e6a95ed1161ffc37b (diff) | |
tclDISPATCH: more informative error message
"expected _n_ tactics" -> "exected _n_ tactics, was given _k_".
Also affect other similar tacticals from `Proofview`.
I used that for debugging once, I thought I might as well propose it for
mergeing.
Diffstat (limited to 'engine/proofview.ml')
| -rw-r--r-- | engine/proofview.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 21227ed198..660f737c69 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -423,11 +423,11 @@ let tclFOCUSID id t = exception SizeMismatch of int*int let _ = CErrors.register_handler begin function - | SizeMismatch (i,_) -> + | SizeMismatch (i,j) -> let open Pp in let errmsg = str"Incorrect number of goals" ++ spc() ++ - str"(expected "++int i++str(String.plural i " tactic") ++ str")." + str"(expected "++int i++str(String.plural i " tactic") ++ str", was given "++ int j++str")." in CErrors.user_err errmsg | _ -> raise CErrors.Unhandled |