Source file `json_converter_t.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
(* Auto-generated from "json_converter.atd" *)
[@@@ocaml.warning "-27-32-33-35-39"]

type user = {
  id: string;
  rid: string;
  ts: int;
  self: string;
  etag: string;
  permissions: string
}

type parameter = { name: string; value: string }

type query = { query: string; parameters: parameter list }

type partitionKey_result = { paths: string list; kind: string }

type list_users = { rid: string; users: user list; count: int }

type database = {
  id: string;
  _rid: string;
  _self: string;
  _etag: string;
  _colls: string;
  _users: string;
  _ts: int
}

type list_databases = { _rid: string; databases: database list; _count: int }

type indexes = { dataType: string; precision: int; kind: string }

type included_paths = { path: string; indexes: indexes list }

type indexing_policy = {
  automatic: bool;
  indexing_mode: string;
  included_paths: included_paths list
}

type collection = {
  id: string;
  indexing_policy: indexing_policy;
  partition_key: partitionKey_result option;
  rid: string;
  ts: int;
  self: string;
  etag: string;
  docs: string;
  sprocs: string;
  triggers: string;
  udfs: string;
  conflicts: string
}

type list_collections = {
  rid: string;
  document_collections: collection list;
  count: int
}

type create_user = { id: string }

type create_partition_key = {
  paths: string list;
  kind: string;
  version: int option
}

type create_database = { id: string }

type create_collection = {
  id: string;
  indexing_policy: indexing_policy option;
  partition_key: create_partition_key option
}