aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/impargs.ml
diff options
context:
space:
mode:
Diffstat (limited to 'library/impargs.ml')
-rw-r--r--library/impargs.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/library/impargs.ml b/library/impargs.ml
index 1edac69aa..dec961793 100644
--- a/library/impargs.ml
+++ b/library/impargs.ml
@@ -521,6 +521,9 @@ let rebuild_implicits (req,l) =
let l' = merge_impls auto m in [ref,l']
in (req,l')
+let classify_implicits (req,_ as obj) =
+ if req = ImplLocal then None else Some obj
+
let (inImplicits, _) =
declare_object {(default_object "IMPLICITS") with
cache_function = cache_implicits;