Fix running averages

2022-01-12 14:43:29 +01:00 · 2022-01-12 14:43:29 +01:00 · 70dbec8ab8
parent bb64e47ac9
commit 70dbec8ab8
1 changed files with 3 additions and 1 deletions
--- 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