diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-01-09 08:20:34 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-01-09 08:20:34 +0100 |
commit | d7f8b955625b6e5d88e6e78ca133e91b35fca09e (patch) | |
tree | d041809fc1ed5d8c0c5e474039195bb2fd743e15 | |
parent | 50c7e47da5e9eac9228ff0e2feeb283fcfebe1bc (diff) | |
parent | a79a62c9fb5690ff1043d9c0dd44f61cd535cc12 (diff) |
Merge remote-tracking branch 'github/pr/350' into trunk
Was PR#350: tclDISPATCH: more informative error message
-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 53cb77b95..2fbabb749 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 |