disable erase function

Author: zoj613

zarr-eio/src/storage.ml

@@ -213,14 +213,15 @@ module HttpStore = struct
       in
       set t key (List.fold_left f ov rsv)
 
-    let erase t key =
+    (*let erase t key =
       Eio.Switch.run @@ fun sw ->
       let url = Uri.with_path t.base_url key in
       let resp, _ = Client.delete ~sw t.client url in
       match Http.Response.status resp with
       | #Http.Status.success -> Deferred.return_unit
-      | e -> raise_status_error e
+      | e -> raise_status_error e *)
 
+    let erase _ = raise Not_implemented
     let erase_prefix _ = raise Not_implemented
     let list _ = raise Not_implemented
     let list_dir _ = raise Not_implemented

zarr-sync/test/test_sync.ml

@@ -315,6 +315,7 @@ let _ =
         assert_raises
           (HttpStore.Request_failed (404, "fakegroup/zarr.json not found"))
           (fun () -> HttpStore.Array.metadata store Node.Array.(gnode / "fakegroup"));
+        assert_raises HttpStore.Not_implemented (fun () -> HttpStore.Array.reshape store anode [|25;32;20|]);
         assert_raises HttpStore.Not_implemented (fun () -> HttpStore.Array.rename store anode "newname");
         assert_raises HttpStore.Not_implemented (fun () -> HttpStore.Group.children store gnode);
         assert_raises HttpStore.Not_implemented (fun () -> HttpStore.hierarchy store);

zarr/src/storage/http.ml

@@ -112,14 +112,15 @@ module Make (Deferred : Types.Deferred) (C : C with type 'a io = 'a Deferred.t)
       set t key (List.fold_left f ov rsv)
 
     (* make reshaping arrays possible *)
-    let erase t key =
+    (*let erase t key =
       let tries = t.tries and client = t.client and config = t.config in
       let url = t.base_url ^ key in
       let+ res = C.http ~tries ~client ~config ~url ~meth:DELETE () in
       match fold_result res with
-      | {code; _} when code = 200 -> ()
-      | {code; body; _} -> raise (Request_failed (code, body))
+      | {code; _} when code = 200 || code = 404 -> ()
+      | {code; body; _} -> raise (Request_failed (code, body)) *)
 
+    let erase _ = raise Not_implemented
     let erase_prefix _ = raise Not_implemented
     let list _ = raise Not_implemented
     let list_dir _ = raise Not_implemented