diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-26 00:48:26 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-26 00:48:26 +0000 |
| commit | c7b754e96714eeeb9d315ee3de402d73a27d47db (patch) | |
| tree | 274792f6cdb60387e9bd4b5b7508463b4228bc4a /lib/kernel/Storage.ml | |
| parent | b06d16a2eb0846799b3b039dee989cf1cb258b6a (diff) | |
| parent | 0ec1e8a052305f5246d7cd66e11300cd29bc6d64 (diff) | |
| download | RNT-c7b754e96714eeeb9d315ee3de402d73a27d47db.tar.gz RNT-c7b754e96714eeeb9d315ee3de402d73a27d47db.zip | |
Merge branch 'branch-registration'
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Storage.ml | 4 | ||||
| -rw-r--r-- | lib/kernel/Storage.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/kernel/Storage.ml b/lib/kernel/Storage.ml index f0c4800..d50735c 100644 --- a/lib/kernel/Storage.ml +++ b/lib/kernel/Storage.ml @@ -5,9 +5,9 @@ module Make (S : Abstract.Storage.STORAGE) = struct loader : S.transaction -> S.address -> ('a, Concepts.Condition.condition) result } - let make addr loader = { addr; loader } + let make loader addr = { addr; loader } let address_of { addr; _ } = addr - let swap { loader; _ } addr = make addr loader + let swap { loader; _ } addr = make loader addr let deref tx { addr; loader } = loader tx addr end diff --git a/lib/kernel/Storage.mli b/lib/kernel/Storage.mli index fa8a785..53bb666 100644 --- a/lib/kernel/Storage.mli +++ b/lib/kernel/Storage.mli @@ -2,7 +2,7 @@ module Make : functor (S : Abstract.Storage.STORAGE) -> sig module Pointer : sig type 'a t - val make : S.address -> (S.transaction -> S.address -> ('a, Concepts.Condition.condition) result) -> 'a t + val make : (S.transaction -> S.address -> ('a, Concepts.Condition.condition) result) -> S.address -> 'a t val address_of : 'a t -> S.address val swap : 'a t -> S.address -> 'a t val deref : S.transaction -> 'a t -> ('a, Concepts.Condition.condition) result |