diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-04 02:19:54 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-04 02:19:54 +0000 |
| commit | 368120a7e16f6088ff73865ca561ce3a798f8724 (patch) | |
| tree | 156fa9f0999c4769e3b7305347ad7f6bccfe2018 /lib/genarg.mli | |
| parent | 40c29ed04ee15c34ef34f7ba638a0773dd113f92 (diff) | |
Small cleaning of printing coercion failures in Ltac interpretation.
Now we at least print the type of the offending object.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16657 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/genarg.mli')
| -rw-r--r-- | lib/genarg.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/genarg.mli b/lib/genarg.mli index b8dd08f96..e2654fcf5 100644 --- a/lib/genarg.mli +++ b/lib/genarg.mli @@ -210,6 +210,9 @@ type argument_type = val argument_type_eq : argument_type -> argument_type -> bool +val pr_argument_type : argument_type -> Pp.std_ppcmds +(** Print a human-readable representation for a given type. *) + val genarg_tag : 'a generic_argument -> argument_type val unquote : ('a, 'co) abstract_argument_type -> argument_type |