blob: 79ed8d09628a94506463c41cf8342c9513a804fc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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)]
|
