From bd00733ef04e4c916ab4a00d80e9ee1142bcd410 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 25 Aug 2020 23:29:05 +0200
Subject: Wrap future goals into a module

---
 vernac/classes.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vernac')

diff --git a/vernac/classes.ml b/vernac/classes.ml
index 5423504f71..82a1e32a14 100644
--- a/vernac/classes.ml
+++ b/vernac/classes.ml
@@ -359,7 +359,7 @@ let declare_instance_open sigma ?hook ~tac ~global ~poly id pri impargs udecl id
      consequence, we use the low-level primitives to code
      the refinement manually.*)
   let future_goals, sigma = Evd.pop_future_goals sigma in
-  let gls = List.rev_append future_goals.Evd.future_shelf (List.rev future_goals.Evd.future_comb) in
+  let gls = List.rev_append future_goals.Evd.FutureGoals.shelf (List.rev future_goals.Evd.FutureGoals.comb) in
   let sigma = Evd.push_future_goals sigma in
   let kind = Decls.(IsDefinition Instance) in
   let hook = Declare.Hook.(make (fun { S.dref ; _ } -> instance_hook pri global ?hook dref)) in
-- 
cgit v1.2.3