Static linking: add accessors for Ocsigen_server.Site.t

ocsigen · May 9, 2024 · fba6307 · fba6307
1 parent 701d255
commit fba6307
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git 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
@@ -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]