From d90fa9a2fef0e98f8b4990ebfad3a7ef24410aa0 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 27 Jun 2017 00:44:39 +0200
Subject: Preparing to hints supporting discharge.

I.e., do not set local flag to false when in a section since
compatibility tells discharge of hints is not supported.
---
 plugins/ltac/g_class.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/ltac/g_class.ml4 b/plugins/ltac/g_class.ml4
index 63451210ca..0d68d38189 100644
--- a/plugins/ltac/g_class.ml4
+++ b/plugins/ltac/g_class.ml4
@@ -21,7 +21,7 @@ let set_transparency cl b =
   List.iter (fun r ->
     let gr = Smartlocate.global_with_alias r in
     let ev = Tacred.evaluable_of_global_reference (Global.env ()) gr in
-      Classes.set_typeclass_transparency ev false b) cl
+      Classes.set_typeclass_transparency ev (Locality.make_section_locality None) b) cl
 
 VERNAC COMMAND EXTEND Typeclasses_Unfold_Settings CLASSIFIED AS SIDEFF
 | [ "Typeclasses" "Transparent" reference_list(cl) ] -> [
-- 
cgit v1.2.3