diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-09 18:55:02 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-09 18:56:30 +0200 |
commit | a14a74be3fbe621095aa95a58b4ec8e4bf0b591a (patch) | |
tree | 643f925fe5a1d1a54c1a71349d512fd6457b0597 /tactics/tacinterp.ml | |
parent | fbbb86bf7c6b864a509a4cca11cac5fbd5d37efc (diff) |
Displaying genarg tag in idtac.
Diffstat (limited to 'tactics/tacinterp.ml')
-rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 85d0ac4cd..3fcf38117 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -748,7 +748,8 @@ let rec message_of_value v = Ftactic.List.map message_of_value l >>= fun l -> Ftactic.return (prlist_with_sep spc (fun x -> x) l) | None -> - Ftactic.return (str "<abstr>") (** TODO *) + let tag = pr_argument_type (genarg_tag v) in + Ftactic.return (str "<" ++ tag ++ str ">") (** TODO *) let interp_message_token ist = function | MsgString s -> Ftactic.return (str s) |