From 70dbec8ab8802397108c62908ee8a985a68b3509 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 12 Jan 2022 14:43:29 +0100
Subject: [PATCH] Fix running averages

---
 ocaml/Block.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ocaml/Block.ml b/ocaml/Block.ml
index 3a7ad79..0d84642 100644
--- a/ocaml/Block.ml
+++ b/ocaml/Block.ml
@@ -110,7 +110,9 @@ let read_bytes b idx =
        Bytes.get_int64_ne b idx
        |> Int64.to_int
      in
-     Some (Bytes.sub b (idx+8) m, idx+8+m)
+     try
+       Some (Bytes.sub b (idx+8) m, idx+8+m)
+     with Invalid_argument _ -> None