Fix the push process with a copy of illegal shared bigarray

mirage · Apr 8, 2022 · 5e5392f · 5e5392f
1 parent 17c396a
commit 5e5392f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/git/sync.ml b/src/git/sync.ml
@@ -177,7 +177,7 @@ struct
           | `Blob -> `C
           | `Tag -> `D
         in
-        let raw = Bigstringaf.sub buffer ~off ~len in
+        let raw = Bigstringaf.copy buffer ~off ~len in
         Lwt.return (Carton.Dec.v ~kind raw)
     | None -> Lwt.fail Not_found