diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-08 20:05:19 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-08 20:05:19 -0300 |
| commit | 41224db2c0929db32da31718af04655ce5e138e6 (patch) | |
| tree | 3df4d2998ba5e00e8d6be9053985cd8196308b4f /lib/kernel/Branch.ml | |
| parent | 46e348142d782cfd94ba37421f92e2871b0f4c22 (diff) | |
| download | RNT-41224db2c0929db32da31718af04655ce5e138e6.tar.gz RNT-41224db2c0929db32da31718af04655ce5e138e6.zip | |
purge schema in favor of simple namespace
Diffstat (limited to 'lib/kernel/Branch.ml')
| -rw-r--r-- | lib/kernel/Branch.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/kernel/Branch.ml b/lib/kernel/Branch.ml index b0b3f12..936391c 100644 --- a/lib/kernel/Branch.ml +++ b/lib/kernel/Branch.ml @@ -115,8 +115,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct [ MMAddressable.make ~node:(MultigroupM.into node); MMDirectory.make ~storage ~node ~constructor:(M.load ?bind storage); MMAssociative.make ~admit:M.admit ~storage ~node:(MultigroupM.into node) - ~constructor:(fun node' -> MultigroupM.from node' |> make |> Result.ok) - () ] ) + ~constructor:(fun node' -> MultigroupM.from node' |> make |> Result.ok ) ] ) in let open Utilities.Result in Protocols. |