Add attributes function to GroupMetadata module

zoj613 · Jul 2, 2024 · 1df4c77 · 1df4c77
1 parent 5f3a045
commit 1df4c77
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/lib/metadata.ml b/lib/metadata.ml
@@ -247,4 +247,6 @@ module GroupMetadata = struct
 
   let update_attributes t attrs =
     {t with attributes = attrs}
+
+  let attributes t = t.attributes
 end
diff --git a/lib/metadata.mli b/lib/metadata.mli
@@ -154,4 +154,8 @@ module GroupMetadata : sig
 
   val show : t -> string
   (** [show t] pretty-prints the contents of the group metadata type t. *)
+
+  val attributes : t -> Yojson.Safe.t
+  (** [attributes t] Returns a Yojson type containing user attributes assigned
+      to the zarr group represented by [t]. *)
 end