diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2025-05-04 02:19:25 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2025-05-04 02:19:25 -0300 |
| commit | 431c2d9fc5efa2e4aabc1c2da8d9f50fb986f287 (patch) | |
| tree | 506b1c32a09385136cab8668bbbb62ac4034cc51 /lib/relation.ml | |
| parent | 8b0f8625d9d37fc0b136c8f941ee3e64e25334e7 (diff) | |
| download | Sakura-431c2d9fc5efa2e4aabc1c2da8d9f50fb986f287.tar.gz Sakura-431c2d9fc5efa2e4aabc1c2da8d9f50fb986f287.zip | |
fix attribute name on read
Diffstat (limited to 'lib/relation.ml')
| -rw-r--r-- | lib/relation.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/relation.ml b/lib/relation.ml index 27cc723..a43ae1d 100644 --- a/lib/relation.ml +++ b/lib/relation.ml @@ -1,11 +1,11 @@ -let print_references (references: (string * Disk.Executor.relational_type) list Disk.Executor.IntMap.t Disk.Executor.StringMap.t) = +let print_references (references: (string * Disk.Executor.relational_type * string) list Disk.Executor.IntMap.t Disk.Executor.StringMap.t) = Disk.Executor.StringMap.iter (fun k v -> print_endline ("→ " ^ k ^ ": "); Disk.Executor.IntMap.iter (fun k v -> print_endline (" ↳ " ^ Int64.to_string k); - List.iter (fun (v, type') -> print_endline (" → " ^ v ^ "[" ^ Disk.Executor.show_relational_type type' ^ "]")) v) + List.iter (fun (v, type', name) -> print_endline (" → " ^ v ^ "[" ^ name ^ "::" ^ Disk.Executor.show_relational_type type' ^ "]")) v) v; print_newline ()) references |