From 74145a7c18ebb35155a63f7af79f04f208f11b7d Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 5 Feb 2026 18:09:23 +0100 Subject: [PATCH] --- src/hash.ml | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/hash.ml b/src/hash.ml index 36be50ee..84ceda9d 100644 --- a/src/hash.ml +++ b/src/hash.ml @@ -89,17 +89,13 @@ module Cstring = struct module H32 = struct include H32 - let hash s = - let s = s ^ "\x00" in - hash s + let hash s = hash (s ^ "\x00") end module H64 = struct include H64 - let hash s = - let s = s ^ "\x00" in - hash s + let hash s = hash (s ^ "\x00") end end