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