diff options
Diffstat (limited to 'lib/relation.ml')
| -rw-r--r-- | lib/relation.ml | 9 |
1 files changed, 5 insertions, 4 deletions
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 = { |
