diff --git a/src/git/sync.ml b/src/git/sync.ml index be1e7a00c..0dbc27511 100644 --- 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