From fba630775ce9a709e3686c6523c7ac953d8982cf Mon Sep 17 00:00:00 2001
From: Vincent Balat <vincent.balat@vblt.org>
Date: Thu, 9 May 2024 18:53:29 +0200
Subject: [PATCH] Static linking: add accessors for Ocsigen_server.Site.t

---
 src/server/ocsigen_server.ml  | 2 ++
 src/server/ocsigen_server.mli | 6 ++++++
 2 files changed, 8 insertions(+)

diff --git a/src/server/ocsigen_server.ml b/src/server/ocsigen_server.ml
index 002889d71..ca8c24919 100644
--- a/src/server/ocsigen_server.ml
+++ b/src/server/ocsigen_server.ml
@@ -155,6 +155,8 @@ module Site = struct
         let path, hosts = path_and_hosts s in
         path @ path', hosts
 
+  let config_info {s_config_info; _} = s_config_info
+
   let create ?(config_info = Ocsigen_extensions.default_config_info ())
       ?(id = `Host (default_re_string, None)) ?charset ()
     =
diff --git a/src/server/ocsigen_server.mli b/src/server/ocsigen_server.mli
index b49238081..4229fe3e0 100644
--- a/src/server/ocsigen_server.mli
+++ b/src/server/ocsigen_server.mli
@@ -36,6 +36,12 @@ module Site : sig
 
   val repr : t -> Ocsigen_loader.site
 
+  val path_and_hosts :
+     t
+    -> Ocsigen_lib.Url.path * Ocsigen_extensions.virtual_hosts
+
+  val config_info : t -> Ocsigen_extensions.config_info
+
   val create :
      ?config_info:Ocsigen_extensions.config_info
     -> ?id:[`Attach of t * Ocsigen_lib.Url.path | `Host of string * int option]