From ddcb5ebd626336382199d796ad2c850ac63073df Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 9 Oct 2019 15:29:39 +0200
Subject: universes_of_private: return set instead of list of sets

---
 kernel/safe_typing.ml  | 4 ++--
 kernel/safe_typing.mli | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'kernel')

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index fc55720583..98465c070b 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -320,10 +320,10 @@ let concat_private = SideEffects.concat
 let universes_of_private eff =
   let fold acc eff =
     match eff.seff_body.const_universes with
-    | Monomorphic ctx -> ctx :: acc
+    | Monomorphic ctx -> Univ.ContextSet.union ctx acc
     | Polymorphic _ -> acc
   in
-  List.fold_left fold [] (side_effects_of_private_constants eff)
+  List.fold_left fold Univ.ContextSet.empty (side_effects_of_private_constants eff)
 
 let env_of_safe_env senv = senv.env
 let env_of_senv = env_of_safe_env
diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli
index 1b55293f1c..1ce790ebbb 100644
--- a/kernel/safe_typing.mli
+++ b/kernel/safe_typing.mli
@@ -59,7 +59,7 @@ val inline_private_constants :
 val push_private_constants : Environ.env -> private_constants -> Environ.env
 (** Push the constants in the environment if not already there. *)
 
-val universes_of_private : private_constants -> Univ.ContextSet.t list
+val universes_of_private : private_constants -> Univ.ContextSet.t
 
 val is_curmod_library : safe_environment -> bool
 
-- 
cgit v1.2.3