From d73653f40736cd7bce81bae4721650f86f507604 Mon Sep 17 00:00:00 2001 From: Robur Date: Mon, 11 Mar 2024 14:59:06 +0000 Subject: [PATCH] dune build @fmt --- src-c/digestif.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src-c/digestif.ml b/src-c/digestif.ml index 9fdaee8..f45db04 100644 --- a/src-c/digestif.ml +++ b/src-c/digestif.ml @@ -145,7 +145,8 @@ module Unsafe (F : Foreign) (D : Desc) = struct res let get_into_bytes t ?(off = 0) buf = - if off < 0 || off >= Bytes.length buf then invalid_arg "offset out of bounds" ; + if off < 0 || off >= Bytes.length buf + then invalid_arg "offset out of bounds" ; if Bytes.length buf - off < digest_size then invalid_arg "destination too small" ; F.Bytes.finalize (Native.dup t) buf off