diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2025-02-27 23:20:45 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2025-02-27 23:20:45 -0300 |
| commit | 737b4c19d14a12e05ec862d23f8f29ff790a73c2 (patch) | |
| tree | 3e70dc1de58debfdc01c289a3bf1f49223cd2140 /lib/relation.ml | |
| parent | 355690f76f3ca895ade25d281beb1eea27e1f53e (diff) | |
| download | Sakura-737b4c19d14a12e05ec862d23f8f29ff790a73c2.tar.gz Sakura-737b4c19d14a12e05ec862d23f8f29ff790a73c2.zip | |
add partition and debugger
Diffstat (limited to 'lib/relation.ml')
| -rw-r--r-- | lib/relation.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/relation.ml b/lib/relation.ml index c01c761..798a082 100644 --- a/lib/relation.ml +++ b/lib/relation.ml @@ -112,6 +112,11 @@ let write_and_retrieve () = let+ _, (Command.Read content as response) = Command.commit_and_perform commit locations command_read in + Executor.StringMap.iter (fun k v -> print_endline ("→ " ^ k ^ ": "); + Executor.IntMap.iter (fun k v -> + print_endline (" ↳ " ^ (Int64.to_string k)); + List.iter (fun v -> print_endline (" → " ^ v)) v) v; + print_newline()) references; print_endline (Command.show_return response); Ok (commit, locations) [@@warning "-8-27-26"] |