From 7da3c0cf2cab00135c173ddc3e3e03b59ff84f17 Mon Sep 17 00:00:00 2001
From: Zolisa Bleki <zolisa.bleki@gmail.com>
Date: Sat, 31 Aug 2024 06:38:52 +0200
Subject: [PATCH] Convert simple Result match to a Result.fold call.

---
 zarr/src/codecs/array_to_bytes.ml | 6 ++----
 zarr/src/codecs/codecs.ml         | 6 ++----
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/zarr/src/codecs/array_to_bytes.ml b/zarr/src/codecs/array_to_bytes.ml
index a6c2298..d14a4fa 100644
--- a/zarr/src/codecs/array_to_bytes.ml
+++ b/zarr/src/codecs/array_to_bytes.ml
@@ -333,10 +333,8 @@ end = struct
     let open Util.Result_syntax in
     let filter_partition f encoded =
       List.fold_right (fun c (l, r) ->
-        match f c with
-        | Ok v -> v :: l, r
-        | Error _ -> l, c :: r) encoded ([], [])
-    in
+        Result.fold ~ok:(fun v -> v :: l, r) ~error:(fun _ -> l, c :: r) @@ f c)
+        encoded ([], []) in
     let* codecs = match codecs with
       | [] -> Error "No codec chain specified for sharding_indexed."
       | y -> Ok y
diff --git a/zarr/src/codecs/codecs.ml b/zarr/src/codecs/codecs.ml
index e462d2a..e7c052d 100644
--- a/zarr/src/codecs/codecs.ml
+++ b/zarr/src/codecs/codecs.ml
@@ -104,10 +104,8 @@ module Chain = struct
     let open Util.Result_syntax in
     let filter_partition f encoded =
       List.fold_right (fun c (l, r) ->
-        match f c with
-        | Ok v -> v :: l, r
-        | Error _ -> l, c :: r) encoded ([], [])
-    in
+        Result.fold ~ok:(fun v -> v :: l, r) ~error:(fun _ -> l, c :: r) @@ f c)
+        encoded ([], []) in
     let* codecs = match Yojson.Safe.Util.to_list x with
       | [] -> Error "No codec specified."
       | y -> Ok y