diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 01:50:35 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 01:50:35 +0000 |
| commit | b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71 (patch) | |
| tree | 38617ef0008e34fcaa95a2c32ec721ced1bb1a4f /lib/kernel/Branch.ml | |
| parent | 5a6af8a74895b548ed39649aef4a09fb53b4dbbc (diff) | |
| download | RNT-b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71.tar.gz RNT-b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71.zip | |
Formatting
Diffstat (limited to 'lib/kernel/Branch.ml')
| -rw-r--r-- | lib/kernel/Branch.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/kernel/Branch.ml b/lib/kernel/Branch.ml index 89a16ff..598e102 100644 --- a/lib/kernel/Branch.ml +++ b/lib/kernel/Branch.ml @@ -54,9 +54,9 @@ module Make (S : Abstract.Storage.STORAGE) = struct let* previous = Bencode.field "previous" fields |>> Value.option_of_bencode (fun v -> - Value.hash_of_bencode v - |> Result.map (fun hash -> S.Hash hash) - |> Result.map (SI.Pointer.make Loader.load) ) + Value.hash_of_bencode v + |> Result.map (fun hash -> S.Hash hash) + |> Result.map (SI.Pointer.make Loader.load) ) in Ok {multigroups; previous} end @@ -107,9 +107,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct method protocols : Protocols.Handle.protocol list = let bind = - Option.map - (fun root -> {EphemeralRelation.root; within= Protocols.Handle.make {<>}}) - root + Option.map (fun root -> {EphemeralRelation.root; within= Protocols.Handle.make {<>}}) root in let multigroups = Prototype.mixture_of node (fun make node -> |