From 355690f76f3ca895ade25d281beb1eea27e1f53e Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sun, 19 Jan 2025 22:09:13 -0300
Subject: add typing and schema

---
 lib/server.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/server.ml')

diff --git a/lib/server.ml b/lib/server.ml
index 3fab513..46ef85d 100644
--- a/lib/server.ml
+++ b/lib/server.ml
@@ -32,7 +32,7 @@ let client_read sock maxlen =
       (* 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 =
+      let relation_result : Protocol.facts =
         [
           {
             attribute_name = "user/first-name";
@@ -47,7 +47,7 @@ let client_read sock maxlen =
         ]
       in
       return
-      @@ Xml.to_string (Relation.Protocol.facts_to_xml_light relation_result)
+      @@ Xml.to_string (Protocol.facts_to_xml_light relation_result)
   | Error err -> return err
 [@@warning "-27"]
 
-- 
cgit v1.2.3