diff options
Diffstat (limited to 'lib/server.ml')
| -rw-r--r-- | lib/server.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/server.ml b/lib/server.ml index 3a6d1fa..cc233db 100644 --- a/lib/server.ml +++ b/lib/server.ml @@ -26,9 +26,10 @@ let client_read sock maxlen = match Relation.write_and_retrieve () with | Ok (last_commit::_, locations) -> begin - let (first_names, last_names) = (Planner.Scan.execute last_commit locations "user/first-name", Planner.Scan.execute last_commit locations "user/last-name") in - let tuples = Planner.Join.execute first_names last_names locations in - let (fname, lname) = List.split tuples in + (* let (first_names, last_names) = (Planner.Scan.execute last_commit locations "user/first-name", Planner.Scan.execute last_commit locations "user/last-name") in *) + (* let tuples = Planner.Join.execute first_names last_names locations in *) + let (fname, lname) = List.split [] in + (* tuples in *) let relation_result: Relation.Protocol.facts = [{attribute_name = "user/first-name"; attribute_type = "string"; tuples = List.map Bytes.to_string fname}; {attribute_name = "user/last-name"; attribute_type = "string"; tuples = List.map Bytes.to_string lname}] in @@ -36,6 +37,7 @@ let client_read sock maxlen = end | Ok _ -> return "Unstable" | Error err -> return err + [@@warning "-27"] let rec socket_read sock = (* (Int32.of_int (String.length results))) *) |