diff options
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"] |