From 481063c322ecc729bc9d3c5d2bca830f70ce8022 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Thu, 3 Jul 2025 19:43:29 -0300
Subject: schema propagation command

---
 lib/disk.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/disk.ml')

diff --git a/lib/disk.ml b/lib/disk.ml
index 05f4d82..a6c3a21 100644
--- a/lib/disk.ml
+++ b/lib/disk.ml
@@ -452,6 +452,7 @@ module Command = struct
   open Protocol_conv_xml
 
   type t =
+    | State
     | SequentialRead of { relation_name : string }
     | SpecifyRelation of { relation_name: string;
                            attributes: (string*Executor.relational_type) list }
@@ -480,6 +481,7 @@ module Command = struct
   type return =
     | ComputedHash of string
     | Read of (int64 * (string*Executor.relational_literal) list) list
+    | Schema of (string * (string * Executor.relational_type) list) list
     | Nothing
   [@@deriving show, sexp, protocol ~driver:(module Xml_light)]
 
-- 
cgit v1.2.3