do not use inline records for retro-compat

EmileTrotignon · jonludlam · commit 1c3bbf64046e · 2024-05-24T16:46:53.000+01:00
diff --git a/src/odoc/compile.ml b/src/odoc/compile.ml
@@ -19,15 +19,20 @@ open Or_error
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  *)
 
+type package_spec = { package : string; output : Fpath.t }
+type parent_spec = {
+  parent : string option;
+  children : string list;
+  output : Fpath.t;
+}
+
+type parent_id_spec = { parent_id : string; output_dir : string }
+
 type cli_spec =
   | CliNoParent of Fpath.t
-  | CliPackage of { package : string; output : Fpath.t }
-  | CliParent of {
-      parent : string option;
-      children : string list;
-      output : Fpath.t;
-    }
-  | CliParentId of { parent_id : string; output_dir : string }
+  | CliPackage of package_spec
+  | CliParent of parent_spec
+  | CliParentId of parent_id_spec
 
 type spec = {
   parent_id : Paths.Identifier.ContainerPage.t option;
diff --git a/src/odoc/compile.mli b/src/odoc/compile.mli
@@ -18,15 +18,20 @@ open Odoc_model
 open Odoc_model.Paths
 open Or_error
 
+type package_spec = { package : string; output : Fpath.t }
+type parent_spec = {
+  parent : string option;
+  children : string list;
+  output : Fpath.t;
+}
+
+type parent_id_spec = { parent_id : string; output_dir : string }
+
 type cli_spec =
   | CliNoParent of Fpath.t
-  | CliPackage of { package : string; output : Fpath.t }
-  | CliParent of {
-      parent : string option;
-      children : string list;
-      output : Fpath.t;
-    }
-  | CliParentId of { parent_id : string; output_dir : string }
+  | CliPackage of package_spec
+  | CliParent of parent_spec
+  | CliParentId of parent_id_spec
 
 val name_of_output : prefix:string -> Fs.File.t -> string
 (** Compute the name of the page from the output file. Prefix is the prefix to
