From d6fbdeb5f694c751661aa27e46603f864de1f81b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ga=C3=ABtan=20Gilbert?= <gaetan.gilbert@skyskimmer.net>
Date: Fri, 18 Oct 2024 13:23:57 +0200
Subject: [PATCH] Adapt to coq/coq#19709 (libobject requires explicit
 classification)

---
 src/coq_elpi_programs.ml | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/coq_elpi_programs.ml b/src/coq_elpi_programs.ml
index 2d23b003b..e3ea10d8c 100644
--- a/src/coq_elpi_programs.ml
+++ b/src/coq_elpi_programs.ml
@@ -304,6 +304,7 @@ let in_source : Names.Id.t -> string option * EC.compilation_unit * EC.flags ->
     cache_function  = cache;
     open_function = simple_open import;
     discharge_function = (fun o -> Some o);
+    classify_function = (fun _ -> Keep);
   }
 ;;
 
@@ -495,6 +496,7 @@ let get ?(fail_if_not_exists=false) p =
     let open Libobject in
     declare_object { (default_object "ELPI-LP-COMMAND") with
       load_function = (fun _ x -> lp_command_ast := Some x);
+      classify_function = (fun _ -> Keep);
     }
   let load_command s =
     let elpi = ensure_initialized () in
@@ -514,6 +516,7 @@ let get ?(fail_if_not_exists=false) p =
     let open Libobject in
     declare_object { (default_object "ELPI-LP-TACTIC") with
       load_function = (fun _ x -> lp_tactic_ast := Some x);
+      classify_function = (fun _ -> Keep);
     }
   let load_tactic s =
     let elpi = ensure_initialized () in
@@ -548,6 +551,7 @@ let get ?(fail_if_not_exists=false) p =
     let open Libobject in
     declare_object { (default_object "ELPI-LP-CHECKER") with
       load_function = (fun _ x -> lp_checker_ast := Some x);
+      classify_function = (fun _ -> Keep);
     }
   
   let load_checker s =
@@ -566,6 +570,7 @@ let get ?(fail_if_not_exists=false) p =
     let open Libobject in
     declare_object { (default_object "ELPI-LP-PRINTER") with
       load_function = (fun _ x -> lp_printer_ast := Some x);
+      classify_function = (fun _ -> Keep);
     }
   let load_printer s =
     let elpi = ensure_initialized () in