From 737b4c19d14a12e05ec862d23f8f29ff790a73c2 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Thu, 27 Feb 2025 23:20:45 -0300
Subject: add partition and debugger

---
 lib/relation.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/relation.ml')

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"]
-- 
cgit v1.2.3