diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-04 17:10:32 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-04 17:10:32 -0300 |
| commit | d3708bb28adcd0220142f1890ab96bfd2df637d3 (patch) | |
| tree | 29da1e5e79c0481cb364bdc9d1da0147da0200fd /lib/interop.ml | |
| parent | 63ae3c930de89af6f85229a467caa3f53cb844a2 (diff) | |
| download | Sakura-d3708bb28adcd0220142f1890ab96bfd2df637d3.tar.gz Sakura-d3708bb28adcd0220142f1890ab96bfd2df637d3.zip | |
remove interop with c
Diffstat (limited to '')
| -rw-r--r-- | lib/interop.ml | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lib/interop.ml b/lib/interop.ml deleted file mode 100644 index 8cbc05c..0000000 --- a/lib/interop.ml +++ /dev/null @@ -1,11 +0,0 @@ -open Ctypes - -module Sha256 = struct - 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 - Ctypes.coerce (ptr char) Ctypes.string buf -end |