diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
| commit | 584fbca6d920e9a9f91d451667f9380714ac2175 (patch) | |
| tree | a163b916a6f8cb550c8b38ceb01ab01558687a40 /lib/abstract/Storage.ml | |
| parent | c7b754e96714eeeb9d315ee3de402d73a27d47db (diff) | |
| download | RNT-584fbca6d920e9a9f91d451667f9380714ac2175.tar.gz RNT-584fbca6d920e9a9f91d451667f9380714ac2175.zip | |
dune fmt
Diffstat (limited to 'lib/abstract/Storage.ml')
| -rw-r--r-- | lib/abstract/Storage.ml | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/lib/abstract/Storage.ml b/lib/abstract/Storage.ml index afd1a3c..e189cd7 100644 --- a/lib/abstract/Storage.ml +++ b/lib/abstract/Storage.ml @@ -1,7 +1,6 @@ module type STORAGE = sig type connection type transaction - type address = Label of string | Hash of Concepts.Hash.hash val connect : Concepts.Configuration.term -> (connection, Concepts.Condition.condition) result @@ -22,15 +21,8 @@ module type STORAGE = sig val abort : transaction -> (unit, Concepts.Condition.condition) result (** within a transaction, fetch a blob from disk *) - val get : - transaction -> - address -> - (Concepts.Blob.t option, Concepts.Condition.condition) result + val get : transaction -> address -> (Concepts.Blob.t option, Concepts.Condition.condition) result (** within a transaction, associate a hash with a blob on disk *) - val put : - transaction -> - address -> - Concepts.Blob.t -> - (unit, Concepts.Condition.condition) result + val put : transaction -> address -> Concepts.Blob.t -> (unit, Concepts.Condition.condition) result end |