diff options
| author | Pierre-Marie Pédrot | 2018-12-19 16:31:34 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-19 16:31:34 +0100 |
| commit | b264bb65b8d985b2e5b1c5642dee317bcf8a9504 (patch) | |
| tree | 233d2db70022f8f4b30540f1ac03db1e03cfd09c /engine/proofview_monad.mli | |
| parent | c687f514b9d86c2873ff5a519cd0f3b9694cf6e8 (diff) | |
| parent | 1499565d4ef1165d34b5bbb927e52a754903e077 (diff) | |
Merge PR #9139: [engine] Allow debug printers to access the environment.
Diffstat (limited to 'engine/proofview_monad.mli')
| -rw-r--r-- | engine/proofview_monad.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/engine/proofview_monad.mli b/engine/proofview_monad.mli index 9d75242175..a08cab3bf6 100644 --- a/engine/proofview_monad.mli +++ b/engine/proofview_monad.mli @@ -45,7 +45,7 @@ end (** We typically label nodes of [Trace.tree] with messages to print. But we don't want to compute the result. *) -type lazy_msg = unit -> Pp.t +type lazy_msg = Environ.env -> Evd.evar_map -> Pp.t (** Info trace. *) module Info : sig @@ -60,7 +60,7 @@ module Info : sig type state = tag Trace.incr type tree = tag Trace.forest - val print : tree -> Pp.t + val print : Environ.env -> Evd.evar_map -> tree -> Pp.t (** [collapse n t] flattens the first [n] levels of [Tactic] in an info trace, effectively forgetting about the [n] top level of |