diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-06 00:04:57 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-06 00:04:57 -0300 |
| commit | 1f084d995444683e2885beb6e12eeee6df1241d3 (patch) | |
| tree | 726e599e026ff79f9456bda93c383a47cfaa8120 /lib/interop.ml | |
| parent | 8c640a262969ef44cd8bc0e0abe95e2a54f4c3f5 (diff) | |
| download | Sakura-1f084d995444683e2885beb6e12eeee6df1241d3.tar.gz Sakura-1f084d995444683e2885beb6e12eeee6df1241d3.zip | |
relation type
Diffstat (limited to 'lib/interop.ml')
| -rw-r--r-- | lib/interop.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/interop.ml b/lib/interop.ml index 3b7a3d2..ea25e0c 100644 --- a/lib/interop.ml +++ b/lib/interop.ml @@ -1,7 +1,8 @@ open Ctypes module Sha256 = struct - let compute_hash content = + type t = string + let compute_hash content: t = let size_with_null_terminator = C.Types.hash_size + 1 in let buf = Ctypes.allocate_n char ~count:size_with_null_terminator in let () = C.Functions.compute_hash buf (Bytes.to_string content) in |