diff options
Diffstat (limited to 'lib/interop.ml')
| -rw-r--r-- | lib/interop.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/interop.ml b/lib/interop.ml index fdfde5f..28b4fb9 100644 --- a/lib/interop.ml +++ b/lib/interop.ml @@ -16,4 +16,7 @@ module Merkle = struct let hashes = CArray.of_list string hashes in C.Functions.merkle_generate_root (CArray.start hashes) len buf; Ctypes.coerce (ptr char) Ctypes.string buf + + let register_to_merkle content = + C.Functions.register_to_merkle "/tmp/relational-engine/tree" content end |