From 79e7dfb46d166ba8906cde9b418b62b7ec3453e2 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 21 Apr 2025 20:36:30 -0300 Subject: wip --- lib/relation.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/relation.ml') diff --git a/lib/relation.ml b/lib/relation.ml index 440600c..83f1c6a 100644 --- a/lib/relation.ml +++ b/lib/relation.ml @@ -12,16 +12,17 @@ let print_references references = let write_and_retrieve () = let open Disk in + let open Executor in let schema = Executor.StringMap.empty |> Executor.StringMap.add "user" [ - ("first_name", Executor.Text); - ("last_name", Executor.Text); - ("address", Executor.Relation "address"); + ("address", Relation "address"); + ("last_name", Text); + ("first_name", Text); ] |> Executor.StringMap.add "address" - [ ("street", Executor.Text); ("number", Executor.Integer32) ] + [ ("street", Text); ("number", Integer32) ] in let commit : Executor.commit = { -- cgit v1.2.3