Fix error message of iApply.

fbc6b6b6 · Robbert Krebbers · 8927c9db · fbc6b6b6
Commit fbc6b6b6 authored Apr 13, 2017 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

theories/proofmode/tactics.v theories/proofmode/tactics.v +3 -1

No files found.
--- a/theories/proofmode/tactics.v
+++ b/theories/proofmode/tactics.v
@@ -565,7 +565,9 @@ Tactic Notation "iApply" open_constr(lem) :=
  iPoseProofCore lem as false true (fun H => first
    [iExact H
    |go H
-    |lazymatch iTypeOf H with Some (_,?Q) => fail "iApply: cannot apply" Q end]).
+    |lazymatch iTypeOf H with
+     | Some (_,?Q) => fail 1 "iApply: cannot apply" Q
+     end]).

 (** * Revert *)
 Local Tactic Notation "iForallRevert" ident(x) :=