From 481063c322ecc729bc9d3c5d2bca830f70ce8022 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Thu, 3 Jul 2025 19:43:29 -0300 Subject: schema propagation command --- lib/protocol.ml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib/protocol.ml') diff --git a/lib/protocol.ml b/lib/protocol.ml index c67fb9a..1cf3635 100644 --- a/lib/protocol.ml +++ b/lib/protocol.ml @@ -6,6 +6,9 @@ type tuple = string list [@@deriving sexp, protocol ~driver:(module Xml_light)] type command = Disk.Command.t [@@deriving sexp, protocol ~driver:(module Xml_light)] +type schema = (string * (string * Disk.Executor.relational_type) list) list +[@@deriving sexp, protocol ~driver:(module Xml_light)] + type relation = { attribute_name : string; attribute_type : string; -- cgit v1.2.3