From b98ef72ee300e52dd2c67f03da358e3c2102cdbb Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Mon, 24 Feb 2020 14:24:10 +0100
Subject: pass filters around

---
 tactics/declare.ml | 2 +-
 tactics/hints.ml   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'tactics')

diff --git a/tactics/declare.ml b/tactics/declare.ml
index 324007930a..38f6db2db3 100644
--- a/tactics/declare.ml
+++ b/tactics/declare.ml
@@ -135,7 +135,7 @@ let (objConstant : constant_obj Libobject.Dyn.tag) =
   declare_object_full { (default_object "CONSTANT") with
     cache_function = cache_constant;
     load_function = load_constant;
-    open_function = open_constant;
+    open_function = todo_filter open_constant;
     classify_function = classify_constant;
     subst_function = ident_subst_function;
     discharge_function = discharge_constant }
diff --git a/tactics/hints.ml b/tactics/hints.ml
index f8a46fcb1d..2118b4f231 100644
--- a/tactics/hints.ml
+++ b/tactics/hints.ml
@@ -1163,7 +1163,7 @@ let inAutoHint : hint_obj -> obj =
   declare_object {(default_object "AUTOHINT") with
                     cache_function = cache_autohint;
                     load_function = load_autohint;
-                    open_function = open_autohint;
+                    open_function = simple_open open_autohint;
                     subst_function = subst_autohint;
                     classify_function = classify_autohint; }
 
-- 
cgit v1.2.3