diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2025-05-02 22:30:14 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2025-05-02 22:30:14 -0300 |
| commit | 0b9fb3ccda45b5cf5f14c96aa4b111c83bc0e0fd (patch) | |
| tree | 5fbc559432ddba57f849b75716e45106d4f3b8e2 /lib/relation.ml | |
| parent | 916503f64678272331a05d1a8218820d9d3bfa60 (diff) | |
| download | Sakura-0b9fb3ccda45b5cf5f14c96aa4b111c83bc0e0fd.tar.gz Sakura-0b9fb3ccda45b5cf5f14c96aa4b111c83bc0e0fd.zip | |
type check and serialization
Diffstat (limited to 'lib/relation.ml')
| -rw-r--r-- | lib/relation.ml | 25 |
1 files changed, 10 insertions, 15 deletions
diff --git a/lib/relation.ml b/lib/relation.ml index 02dcc44..0278131 100644 --- a/lib/relation.ml +++ b/lib/relation.ml @@ -45,10 +45,9 @@ let write_and_retrieve () = let command_write1 : Command.transaction = { timestamp = 10.0; - hash = ""; - content = "Daisy"; + content = Executor.LText "Daisy"; entity_id = Some 0L; - filename = "user/first-name"; + attribute = "user/first-name"; type' = Executor.Text; } in @@ -59,10 +58,9 @@ let write_and_retrieve () = let command_write2 : Command.transaction = { timestamp = 10.0; - hash = ""; - content = "Blossom"; + content = Executor.LText "Blossom"; entity_id = Some 0L; - filename = "user/last-name"; + attribute = "user/last-name"; type' = Executor.Text; } in @@ -73,10 +71,9 @@ let write_and_retrieve () = let command_write1_address : Command.transaction = { timestamp = 10.0; - hash = ""; - content = "Saint James St."; + content = Executor.LText "Saint James St."; entity_id = Some 0L; - filename = "address/street"; + attribute = "address/street"; type' = Executor.Text; } in @@ -87,10 +84,9 @@ let write_and_retrieve () = let command_write2_address : Command.transaction = { timestamp = 10.0; - hash = ""; - content = "41"; + content = Executor.LInteger32 41l; entity_id = Some 0L; - filename = "address/number"; + attribute = "address/number"; type' = Executor.Text; } in @@ -101,10 +97,9 @@ let write_and_retrieve () = let command_write2_5 : Command.transaction = { timestamp = 10.0; - hash = ""; - content = "0"; + content = Executor.LRelation 0L; entity_id = Some 0L; - filename = "user/address"; + attribute = "user/address"; type' = Executor.Relation "address"; } in |