blob: 79ed8d09628a94506463c41cf8342c9513a804fc (
plain) (
tree)
|
|
open Protocol_conv_xml
open Sexplib0.Sexp_conv
type tuple = string list [@@deriving sexp, protocol ~driver:(module Xml_light)]
type relation = {
attribute_name : string;
attribute_type : string;
tuples : tuple;
}
[@@deriving sexp, protocol ~driver:(module Xml_light)]
type facts = relation list
[@@deriving sexp, protocol ~driver:(module Xml_light)]
|
