diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-02-08 18:13:25 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-21 15:51:47 +0100 |
commit | 921ea3983d45051ae85b0e20bf13de2eff38e53e (patch) | |
tree | 6b8a7f33e7df5d2eac0c81a8839ca6d749fad752 /ide | |
parent | 3b3d5937939ac8dc4f152d61391630e62bb0b2e5 (diff) |
[pp] Remove uses of expensive string_of_ppcmds.
In general we want to avoid this as much as we can, as it will need to
make choices regarding the output backend (width, etc...) and it is
expensive. It is better to serve the printing backends the pretty
print document itself.
Diffstat (limited to 'ide')
-rw-r--r-- | ide/ide_slave.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index e3e1a8890..2065a4546 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -255,7 +255,7 @@ let status force = let export_coq_object t = { Interface.coq_object_prefix = t.Search.coq_object_prefix; Interface.coq_object_qualid = t.Search.coq_object_qualid; - Interface.coq_object_object = t.Search.coq_object_object + Interface.coq_object_object = Pp.string_of_ppcmds (pr_lconstr_env (Global.env ()) Evd.empty t.Search.coq_object_object) } let pattern_of_string ?env s = |