diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 04:25:50 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 04:26:17 +0000 |
| commit | 721b1fda713a08bbc4f9a8e50820ce1491e32ff1 (patch) | |
| tree | 86e405eff57158dda3749ae6efd8edb5c74693c9 /lib/kernel/Storage.ml | |
| parent | 5a1088413468f171886d39339a8de96697af64c5 (diff) | |
| download | RNT-721b1fda713a08bbc4f9a8e50820ce1491e32ff1.tar.gz RNT-721b1fda713a08bbc4f9a8e50820ce1491e32ff1.zip | |
Actually register the multigroup
Diffstat (limited to 'lib/kernel/Storage.ml')
| -rw-r--r-- | lib/kernel/Storage.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/kernel/Storage.ml b/lib/kernel/Storage.ml index dd06783..665b1a7 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 |