Move storage helpers to a dedicated module

1 files changed, 22 insertions, 0 deletions

diff --git a/lib/kernel/Storage.ml b/lib/kernel/Storage.ml
new file mode 100644
index 0000000..952b306
--- /dev/null
+++ b/lib/kernel/Storage.ml
@@ -0,0 +1,22 @@
+module Make (S : Abstract.Storage.STORAGE) = struct
+  let finish tx = function
+    | Ok value ->
+       let open Utilities.Result in
+       let* () = S.commit tx in
+       Ok value
+    | Error condition ->
+       let _ = S.abort tx in
+       Error condition
+
+  let with_transaction connection body =
+    let open Utilities.Result in
+    let* tx = S.start connection in
+    body tx |> finish tx
+
+  let store_blob tx blob =
+    let open Utilities.Result in
+    let address = Concepts.Hash.hash_of_blob blob in
+    let* () = S.put tx address blob in
+    Ok address
+
+end