From 0c40c7897e2a3fd549b8eda45bcea77d289c874c Mon Sep 17 00:00:00 2001
From: Zolisa Bleki <zolisa.bleki@gmail.com>
Date: Tue, 2 Jul 2024 19:19:25 +0200
Subject: [PATCH] Add `attributes` function to `GroupMetadata` module

---
 lib/metadata.ml  | 2 ++
 lib/metadata.mli | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/lib/metadata.ml b/lib/metadata.ml
index a24f2c8..6b07f6d 100644
--- 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
index d3142c6..e9f5bfd 100644
--- 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