futur.blue
objective categorical abstract machine language personal data server
Update lexicons
+352
-492
-4
pegasus/lexicons/app_bsky_actor_defs.ml
-4
pegasus/lexicons/app_bsky_actor_defs.ml
···
68
let personal_details_pref_of_yojson = App_bsky_shared_1.personal_details_pref_of_yojson
69
let personal_details_pref_to_yojson = App_bsky_shared_1.personal_details_pref_to_yojson
70
71
-
type declared_age_pref = App_bsky_shared_1.declared_age_pref
72
-
let declared_age_pref_of_yojson = App_bsky_shared_1.declared_age_pref_of_yojson
73
-
let declared_age_pref_to_yojson = App_bsky_shared_1.declared_age_pref_to_yojson
74
-
75
type feed_view_pref = App_bsky_shared_1.feed_view_pref
76
let feed_view_pref_of_yojson = App_bsky_shared_1.feed_view_pref_of_yojson
77
let feed_view_pref_to_yojson = App_bsky_shared_1.feed_view_pref_to_yojson
···
68
let personal_details_pref_of_yojson = App_bsky_shared_1.personal_details_pref_of_yojson
69
let personal_details_pref_to_yojson = App_bsky_shared_1.personal_details_pref_to_yojson
70
71
type feed_view_pref = App_bsky_shared_1.feed_view_pref
72
let feed_view_pref_of_yojson = App_bsky_shared_1.feed_view_pref_of_yojson
73
let feed_view_pref_to_yojson = App_bsky_shared_1.feed_view_pref_to_yojson
-2
pegasus/lexicons/app_bsky_actor_profile.ml
-2
pegasus/lexicons/app_bsky_actor_profile.ml
···
26
{
27
display_name: string option [@key "displayName"] [@default None];
28
description: string option [@default None];
29
-
pronouns: string option [@default None];
30
-
website: string option [@default None];
31
avatar: Hermes.blob option [@default None];
32
banner: Hermes.blob option [@default None];
33
labels: labels option [@default None];
+13
-16
pegasus/lexicons/app_bsky_ageassurance_begin.ml
+13
-16
pegasus/lexicons/app_bsky_ageassurance_begin.ml
···
5
let nsid = "app.bsky.ageassurance.begin"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
type input =
11
-
{
12
-
email: string;
13
-
language: string;
14
-
country_code: string [@key "countryCode"];
15
-
region_code: string option [@key "regionCode"] [@default None];
16
-
}
17
[@@deriving yojson {strict= false}]
18
19
type output = App_bsky_ageassurance_defs.state
20
-
[@@deriving yojson {strict= false}]
21
22
-
let call
23
-
~email
24
-
~language
25
-
~country_code
26
-
?region_code
27
-
(client : Hermes.client) : output Lwt.t =
28
let params = () in
29
-
let input = Some ({email; language; country_code; region_code} |> input_to_yojson) in
30
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
31
end
32
-
···
5
let nsid = "app.bsky.ageassurance.begin"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
type input =
12
+
{ email: string
13
+
; language: string
14
+
; country_code: string [@key "countryCode"]
15
+
; region_code: string option [@key "regionCode"] [@default None] }
16
[@@deriving yojson {strict= false}]
17
18
type output = App_bsky_ageassurance_defs.state
19
+
[@@deriving yojson {strict= false}]
20
21
+
let call ~email ~language ~country_code ?region_code (client : Hermes.client)
22
+
: output Lwt.t =
23
let params = () in
24
+
let input =
25
+
Some ({email; language; country_code; region_code} |> input_to_yojson)
26
+
in
27
+
Hermes.procedure client nsid (params_to_yojson params) input
28
+
output_of_yojson
29
end
+164
-131
pegasus/lexicons/app_bsky_ageassurance_defs.ml
+164
-131
pegasus/lexicons/app_bsky_ageassurance_defs.ml
···
2
3
(** string type with known values: The access level granted based on Age Assurance data we've processed. *)
4
type access = string
5
let access_of_yojson = function
6
-
| `String s -> Ok s
7
-
| _ -> Error "access: expected string"
8
let access_to_yojson s = `String s
9
10
(** string type with known values: The status of the Age Assurance process. *)
11
type status = string
12
let status_of_yojson = function
13
-
| `String s -> Ok s
14
-
| _ -> Error "status: expected string"
15
let status_to_yojson s = `String s
16
17
type state =
18
-
{
19
-
last_initiated_at: string option [@key "lastInitiatedAt"] [@default None];
20
-
status: status;
21
-
access: access;
22
-
}
23
[@@deriving yojson {strict= false}]
24
25
type state_metadata =
26
-
{
27
-
account_created_at: string option [@key "accountCreatedAt"] [@default None];
28
-
}
29
[@@deriving yojson {strict= false}]
30
31
-
type config_region_rule_if_account_older_than =
32
-
{
33
-
date: string;
34
-
access: access;
35
-
}
36
[@@deriving yojson {strict= false}]
37
38
-
type config_region_rule_if_account_newer_than =
39
-
{
40
-
date: string;
41
-
access: access;
42
-
}
43
[@@deriving yojson {strict= false}]
44
45
-
type config_region_rule_if_assured_under_age =
46
-
{
47
-
age: int;
48
-
access: access;
49
-
}
50
[@@deriving yojson {strict= false}]
51
52
-
type config_region_rule_if_assured_over_age =
53
-
{
54
-
age: int;
55
-
access: access;
56
-
}
57
[@@deriving yojson {strict= false}]
58
59
-
type config_region_rule_if_declared_under_age =
60
-
{
61
-
age: int;
62
-
access: access;
63
-
}
64
[@@deriving yojson {strict= false}]
65
66
-
type config_region_rule_if_declared_over_age =
67
-
{
68
-
age: int;
69
-
access: access;
70
-
}
71
[@@deriving yojson {strict= false}]
72
73
-
type config_region_rule_default =
74
-
{
75
-
access: access;
76
-
}
77
[@@deriving yojson {strict= false}]
78
79
type rules_item =
80
| ConfigRegionRuleDefault of config_region_rule_default
81
| ConfigRegionRuleIfDeclaredOverAge of config_region_rule_if_declared_over_age
82
-
| ConfigRegionRuleIfDeclaredUnderAge of config_region_rule_if_declared_under_age
83
| ConfigRegionRuleIfAssuredOverAge of config_region_rule_if_assured_over_age
84
| ConfigRegionRuleIfAssuredUnderAge of config_region_rule_if_assured_under_age
85
-
| ConfigRegionRuleIfAccountNewerThan of config_region_rule_if_account_newer_than
86
-
| ConfigRegionRuleIfAccountOlderThan of config_region_rule_if_account_older_than
87
| Unknown of Yojson.Safe.t
88
89
let rules_item_of_yojson json =
90
let open Yojson.Safe.Util in
91
try
92
match json |> member "$type" |> to_string with
93
-
| "app.bsky.ageassurance.defs#configRegionRuleDefault" ->
94
-
(match config_region_rule_default_of_yojson json with
95
-
| Ok v -> Ok (ConfigRegionRuleDefault v)
96
-
| Error e -> Error e)
97
-
| "app.bsky.ageassurance.defs#configRegionRuleIfDeclaredOverAge" ->
98
-
(match config_region_rule_if_declared_over_age_of_yojson json with
99
-
| Ok v -> Ok (ConfigRegionRuleIfDeclaredOverAge v)
100
-
| Error e -> Error e)
101
-
| "app.bsky.ageassurance.defs#configRegionRuleIfDeclaredUnderAge" ->
102
-
(match config_region_rule_if_declared_under_age_of_yojson json with
103
-
| Ok v -> Ok (ConfigRegionRuleIfDeclaredUnderAge v)
104
-
| Error e -> Error e)
105
-
| "app.bsky.ageassurance.defs#configRegionRuleIfAssuredOverAge" ->
106
-
(match config_region_rule_if_assured_over_age_of_yojson json with
107
-
| Ok v -> Ok (ConfigRegionRuleIfAssuredOverAge v)
108
-
| Error e -> Error e)
109
-
| "app.bsky.ageassurance.defs#configRegionRuleIfAssuredUnderAge" ->
110
-
(match config_region_rule_if_assured_under_age_of_yojson json with
111
-
| Ok v -> Ok (ConfigRegionRuleIfAssuredUnderAge v)
112
-
| Error e -> Error e)
113
-
| "app.bsky.ageassurance.defs#configRegionRuleIfAccountNewerThan" ->
114
-
(match config_region_rule_if_account_newer_than_of_yojson json with
115
-
| Ok v -> Ok (ConfigRegionRuleIfAccountNewerThan v)
116
-
| Error e -> Error e)
117
-
| "app.bsky.ageassurance.defs#configRegionRuleIfAccountOlderThan" ->
118
-
(match config_region_rule_if_account_older_than_of_yojson json with
119
-
| Ok v -> Ok (ConfigRegionRuleIfAccountOlderThan v)
120
-
| Error e -> Error e)
121
-
| _ -> Ok (Unknown json)
122
with _ -> Error "failed to parse union"
123
124
let rules_item_to_yojson = function
125
-
| ConfigRegionRuleDefault v ->
126
-
(match config_region_rule_default_to_yojson v with
127
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleDefault") :: fields)
128
-
| other -> other)
129
-
| ConfigRegionRuleIfDeclaredOverAge v ->
130
-
(match config_region_rule_if_declared_over_age_to_yojson v with
131
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleIfDeclaredOverAge") :: fields)
132
-
| other -> other)
133
-
| ConfigRegionRuleIfDeclaredUnderAge v ->
134
-
(match config_region_rule_if_declared_under_age_to_yojson v with
135
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleIfDeclaredUnderAge") :: fields)
136
-
| other -> other)
137
-
| ConfigRegionRuleIfAssuredOverAge v ->
138
-
(match config_region_rule_if_assured_over_age_to_yojson v with
139
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleIfAssuredOverAge") :: fields)
140
-
| other -> other)
141
-
| ConfigRegionRuleIfAssuredUnderAge v ->
142
-
(match config_region_rule_if_assured_under_age_to_yojson v with
143
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleIfAssuredUnderAge") :: fields)
144
-
| other -> other)
145
-
| ConfigRegionRuleIfAccountNewerThan v ->
146
-
(match config_region_rule_if_account_newer_than_to_yojson v with
147
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleIfAccountNewerThan") :: fields)
148
-
| other -> other)
149
-
| ConfigRegionRuleIfAccountOlderThan v ->
150
-
(match config_region_rule_if_account_older_than_to_yojson v with
151
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.ageassurance.defs#configRegionRuleIfAccountOlderThan") :: fields)
152
-
| other -> other)
153
-
| Unknown j -> j
154
155
type config_region =
156
-
{
157
-
country_code: string [@key "countryCode"];
158
-
region_code: string option [@key "regionCode"] [@default None];
159
-
rules: rules_item list;
160
-
}
161
[@@deriving yojson {strict= false}]
162
163
-
type config =
164
-
{
165
-
regions: config_region list;
166
-
}
167
-
[@@deriving yojson {strict= false}]
168
169
type event =
170
-
{
171
-
created_at: string [@key "createdAt"];
172
-
attempt_id: string [@key "attemptId"];
173
-
status: string;
174
-
access: string;
175
-
country_code: string [@key "countryCode"];
176
-
region_code: string option [@key "regionCode"] [@default None];
177
-
email: string option [@default None];
178
-
init_ip: string option [@key "initIp"] [@default None];
179
-
init_ua: string option [@key "initUa"] [@default None];
180
-
complete_ip: string option [@key "completeIp"] [@default None];
181
-
complete_ua: string option [@key "completeUa"] [@default None];
182
-
}
183
[@@deriving yojson {strict= false}]
184
-
···
2
3
(** string type with known values: The access level granted based on Age Assurance data we've processed. *)
4
type access = string
5
+
6
let access_of_yojson = function
7
+
| `String s ->
8
+
Ok s
9
+
| _ ->
10
+
Error "access: expected string"
11
+
12
let access_to_yojson s = `String s
13
14
(** string type with known values: The status of the Age Assurance process. *)
15
type status = string
16
+
17
let status_of_yojson = function
18
+
| `String s ->
19
+
Ok s
20
+
| _ ->
21
+
Error "status: expected string"
22
+
23
let status_to_yojson s = `String s
24
25
type state =
26
+
{ last_initiated_at: string option [@key "lastInitiatedAt"] [@default None]
27
+
; status: status
28
+
; access: access }
29
[@@deriving yojson {strict= false}]
30
31
type state_metadata =
32
+
{account_created_at: string option [@key "accountCreatedAt"] [@default None]}
33
[@@deriving yojson {strict= false}]
34
35
+
type config_region_rule_if_account_older_than = {date: string; access: access}
36
[@@deriving yojson {strict= false}]
37
38
+
type config_region_rule_if_account_newer_than = {date: string; access: access}
39
[@@deriving yojson {strict= false}]
40
41
+
type config_region_rule_if_assured_under_age = {age: int; access: access}
42
[@@deriving yojson {strict= false}]
43
44
+
type config_region_rule_if_assured_over_age = {age: int; access: access}
45
[@@deriving yojson {strict= false}]
46
47
+
type config_region_rule_if_declared_under_age = {age: int; access: access}
48
[@@deriving yojson {strict= false}]
49
50
+
type config_region_rule_if_declared_over_age = {age: int; access: access}
51
[@@deriving yojson {strict= false}]
52
53
+
type config_region_rule_default = {access: access}
54
[@@deriving yojson {strict= false}]
55
56
type rules_item =
57
| ConfigRegionRuleDefault of config_region_rule_default
58
| ConfigRegionRuleIfDeclaredOverAge of config_region_rule_if_declared_over_age
59
+
| ConfigRegionRuleIfDeclaredUnderAge of
60
+
config_region_rule_if_declared_under_age
61
| ConfigRegionRuleIfAssuredOverAge of config_region_rule_if_assured_over_age
62
| ConfigRegionRuleIfAssuredUnderAge of config_region_rule_if_assured_under_age
63
+
| ConfigRegionRuleIfAccountNewerThan of
64
+
config_region_rule_if_account_newer_than
65
+
| ConfigRegionRuleIfAccountOlderThan of
66
+
config_region_rule_if_account_older_than
67
| Unknown of Yojson.Safe.t
68
69
let rules_item_of_yojson json =
70
let open Yojson.Safe.Util in
71
try
72
match json |> member "$type" |> to_string with
73
+
| "app.bsky.ageassurance.defs#configRegionRuleDefault" -> (
74
+
match config_region_rule_default_of_yojson json with
75
+
| Ok v ->
76
+
Ok (ConfigRegionRuleDefault v)
77
+
| Error e ->
78
+
Error e )
79
+
| "app.bsky.ageassurance.defs#configRegionRuleIfDeclaredOverAge" -> (
80
+
match config_region_rule_if_declared_over_age_of_yojson json with
81
+
| Ok v ->
82
+
Ok (ConfigRegionRuleIfDeclaredOverAge v)
83
+
| Error e ->
84
+
Error e )
85
+
| "app.bsky.ageassurance.defs#configRegionRuleIfDeclaredUnderAge" -> (
86
+
match config_region_rule_if_declared_under_age_of_yojson json with
87
+
| Ok v ->
88
+
Ok (ConfigRegionRuleIfDeclaredUnderAge v)
89
+
| Error e ->
90
+
Error e )
91
+
| "app.bsky.ageassurance.defs#configRegionRuleIfAssuredOverAge" -> (
92
+
match config_region_rule_if_assured_over_age_of_yojson json with
93
+
| Ok v ->
94
+
Ok (ConfigRegionRuleIfAssuredOverAge v)
95
+
| Error e ->
96
+
Error e )
97
+
| "app.bsky.ageassurance.defs#configRegionRuleIfAssuredUnderAge" -> (
98
+
match config_region_rule_if_assured_under_age_of_yojson json with
99
+
| Ok v ->
100
+
Ok (ConfigRegionRuleIfAssuredUnderAge v)
101
+
| Error e ->
102
+
Error e )
103
+
| "app.bsky.ageassurance.defs#configRegionRuleIfAccountNewerThan" -> (
104
+
match config_region_rule_if_account_newer_than_of_yojson json with
105
+
| Ok v ->
106
+
Ok (ConfigRegionRuleIfAccountNewerThan v)
107
+
| Error e ->
108
+
Error e )
109
+
| "app.bsky.ageassurance.defs#configRegionRuleIfAccountOlderThan" -> (
110
+
match config_region_rule_if_account_older_than_of_yojson json with
111
+
| Ok v ->
112
+
Ok (ConfigRegionRuleIfAccountOlderThan v)
113
+
| Error e ->
114
+
Error e )
115
+
| _ ->
116
+
Ok (Unknown json)
117
with _ -> Error "failed to parse union"
118
119
let rules_item_to_yojson = function
120
+
| ConfigRegionRuleDefault v -> (
121
+
match config_region_rule_default_to_yojson v with
122
+
| `Assoc fields ->
123
+
`Assoc
124
+
( ( "$type"
125
+
, `String "app.bsky.ageassurance.defs#configRegionRuleDefault" )
126
+
:: fields )
127
+
| other ->
128
+
other )
129
+
| ConfigRegionRuleIfDeclaredOverAge v -> (
130
+
match config_region_rule_if_declared_over_age_to_yojson v with
131
+
| `Assoc fields ->
132
+
`Assoc
133
+
( ( "$type"
134
+
, `String
135
+
"app.bsky.ageassurance.defs#configRegionRuleIfDeclaredOverAge"
136
+
)
137
+
:: fields )
138
+
| other ->
139
+
other )
140
+
| ConfigRegionRuleIfDeclaredUnderAge v -> (
141
+
match config_region_rule_if_declared_under_age_to_yojson v with
142
+
| `Assoc fields ->
143
+
`Assoc
144
+
( ( "$type"
145
+
, `String
146
+
"app.bsky.ageassurance.defs#configRegionRuleIfDeclaredUnderAge"
147
+
)
148
+
:: fields )
149
+
| other ->
150
+
other )
151
+
| ConfigRegionRuleIfAssuredOverAge v -> (
152
+
match config_region_rule_if_assured_over_age_to_yojson v with
153
+
| `Assoc fields ->
154
+
`Assoc
155
+
( ( "$type"
156
+
, `String
157
+
"app.bsky.ageassurance.defs#configRegionRuleIfAssuredOverAge" )
158
+
:: fields )
159
+
| other ->
160
+
other )
161
+
| ConfigRegionRuleIfAssuredUnderAge v -> (
162
+
match config_region_rule_if_assured_under_age_to_yojson v with
163
+
| `Assoc fields ->
164
+
`Assoc
165
+
( ( "$type"
166
+
, `String
167
+
"app.bsky.ageassurance.defs#configRegionRuleIfAssuredUnderAge"
168
+
)
169
+
:: fields )
170
+
| other ->
171
+
other )
172
+
| ConfigRegionRuleIfAccountNewerThan v -> (
173
+
match config_region_rule_if_account_newer_than_to_yojson v with
174
+
| `Assoc fields ->
175
+
`Assoc
176
+
( ( "$type"
177
+
, `String
178
+
"app.bsky.ageassurance.defs#configRegionRuleIfAccountNewerThan"
179
+
)
180
+
:: fields )
181
+
| other ->
182
+
other )
183
+
| ConfigRegionRuleIfAccountOlderThan v -> (
184
+
match config_region_rule_if_account_older_than_to_yojson v with
185
+
| `Assoc fields ->
186
+
`Assoc
187
+
( ( "$type"
188
+
, `String
189
+
"app.bsky.ageassurance.defs#configRegionRuleIfAccountOlderThan"
190
+
)
191
+
:: fields )
192
+
| other ->
193
+
other )
194
+
| Unknown j ->
195
+
j
196
197
type config_region =
198
+
{ country_code: string [@key "countryCode"]
199
+
; region_code: string option [@key "regionCode"] [@default None]
200
+
; rules: rules_item list }
201
[@@deriving yojson {strict= false}]
202
203
+
type config = {regions: config_region list} [@@deriving yojson {strict= false}]
204
205
type event =
206
+
{ created_at: string [@key "createdAt"]
207
+
; attempt_id: string [@key "attemptId"]
208
+
; status: string
209
+
; access: string
210
+
; country_code: string [@key "countryCode"]
211
+
; region_code: string option [@key "regionCode"] [@default None]
212
+
; email: string option [@default None]
213
+
; init_ip: string option [@key "initIp"] [@default None]
214
+
; init_ua: string option [@key "initUa"] [@default None]
215
+
; complete_ip: string option [@key "completeIp"] [@default None]
216
+
; complete_ua: string option [@key "completeUa"] [@default None] }
217
[@@deriving yojson {strict= false}]
+3
-4
pegasus/lexicons/app_bsky_ageassurance_getConfig.ml
+3
-4
pegasus/lexicons/app_bsky_ageassurance_getConfig.ml
···
5
let nsid = "app.bsky.ageassurance.getConfig"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
type output = App_bsky_ageassurance_defs.config
11
-
[@@deriving yojson {strict= false}]
12
13
-
let call
14
-
(client : Hermes.client) : output Lwt.t =
15
Hermes.query client nsid (`Assoc []) output_of_yojson
16
end
17
-
···
5
let nsid = "app.bsky.ageassurance.getConfig"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
type output = App_bsky_ageassurance_defs.config
12
+
[@@deriving yojson {strict= false}]
13
14
+
let call (client : Hermes.client) : output Lwt.t =
15
Hermes.query client nsid (`Assoc []) output_of_yojson
16
end
+7
-15
pegasus/lexicons/app_bsky_ageassurance_getState.ml
+7
-15
pegasus/lexicons/app_bsky_ageassurance_getState.ml
···
5
let nsid = "app.bsky.ageassurance.getState"
6
7
type params =
8
-
{
9
-
country_code: string [@key "countryCode"];
10
-
region_code: string option [@key "regionCode"] [@default None];
11
-
}
12
-
[@@deriving yojson {strict= false}]
13
14
type output =
15
-
{
16
-
state: App_bsky_ageassurance_defs.state;
17
-
metadata: App_bsky_ageassurance_defs.state_metadata;
18
-
}
19
-
[@@deriving yojson {strict= false}]
20
21
-
let call
22
-
~country_code
23
-
?region_code
24
-
(client : Hermes.client) : output Lwt.t =
25
let params : params = {country_code; region_code} in
26
Hermes.query client nsid (params_to_yojson params) output_of_yojson
27
end
28
-
···
5
let nsid = "app.bsky.ageassurance.getState"
6
7
type params =
8
+
{ country_code: string [@key "countryCode"]
9
+
; region_code: string option [@key "regionCode"] [@default None] }
10
+
[@@deriving yojson {strict= false}]
11
12
type output =
13
+
{ state: App_bsky_ageassurance_defs.state
14
+
; metadata: App_bsky_ageassurance_defs.state_metadata }
15
+
[@@deriving yojson {strict= false}]
16
17
+
let call ~country_code ?region_code (client : Hermes.client) : output Lwt.t =
18
let params : params = {country_code; region_code} in
19
Hermes.query client nsid (params_to_yojson params) output_of_yojson
20
end
+6
-12
pegasus/lexicons/app_bsky_bookmark_createBookmark.ml
+6
-12
pegasus/lexicons/app_bsky_bookmark_createBookmark.ml
···
5
let nsid = "app.bsky.bookmark.createBookmark"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
uri: string;
13
-
cid: string;
14
-
}
15
-
[@@deriving yojson {strict= false}]
16
17
type output = unit
18
let output_of_yojson _ = Ok ()
19
20
-
let call
21
-
~uri
22
-
~cid
23
-
(client : Hermes.client) : output Lwt.t =
24
let params = () in
25
let input = Some ({uri; cid} |> input_to_yojson) in
26
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
27
end
28
-
···
5
let nsid = "app.bsky.bookmark.createBookmark"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {uri: string; cid: string} [@@deriving yojson {strict= false}]
12
13
type output = unit
14
+
15
let output_of_yojson _ = Ok ()
16
17
+
let call ~uri ~cid (client : Hermes.client) : output Lwt.t =
18
let params = () in
19
let input = Some ({uri; cid} |> input_to_yojson) in
20
+
Hermes.procedure client nsid (params_to_yojson params) input
21
+
output_of_yojson
22
end
+44
-36
pegasus/lexicons/app_bsky_bookmark_defs.ml
+44
-36
pegasus/lexicons/app_bsky_bookmark_defs.ml
···
1
(* generated from app.bsky.bookmark.defs *)
2
3
-
type bookmark =
4
-
{
5
-
subject: Com_atproto_repo_strongRef.main;
6
-
}
7
[@@deriving yojson {strict= false}]
8
9
type item =
···
16
let open Yojson.Safe.Util in
17
try
18
match json |> member "$type" |> to_string with
19
-
| "app.bsky.feed.defs#blockedPost" ->
20
-
(match App_bsky_feed_defs.blocked_post_of_yojson json with
21
-
| Ok v -> Ok (BlockedPost v)
22
-
| Error e -> Error e)
23
-
| "app.bsky.feed.defs#notFoundPost" ->
24
-
(match App_bsky_feed_defs.not_found_post_of_yojson json with
25
-
| Ok v -> Ok (NotFoundPost v)
26
-
| Error e -> Error e)
27
-
| "app.bsky.feed.defs#postView" ->
28
-
(match App_bsky_feed_defs.post_view_of_yojson json with
29
-
| Ok v -> Ok (PostView v)
30
-
| Error e -> Error e)
31
-
| _ -> Ok (Unknown json)
32
with _ -> Error "failed to parse union"
33
34
let item_to_yojson = function
35
-
| BlockedPost v ->
36
-
(match App_bsky_feed_defs.blocked_post_to_yojson v with
37
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.feed.defs#blockedPost") :: fields)
38
-
| other -> other)
39
-
| NotFoundPost v ->
40
-
(match App_bsky_feed_defs.not_found_post_to_yojson v with
41
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.feed.defs#notFoundPost") :: fields)
42
-
| other -> other)
43
-
| PostView v ->
44
-
(match App_bsky_feed_defs.post_view_to_yojson v with
45
-
| `Assoc fields -> `Assoc (("$type", `String "app.bsky.feed.defs#postView") :: fields)
46
-
| other -> other)
47
-
| Unknown j -> j
48
49
type bookmark_view =
50
-
{
51
-
subject: Com_atproto_repo_strongRef.main;
52
-
created_at: string option [@key "createdAt"] [@default None];
53
-
item: item;
54
-
}
55
[@@deriving yojson {strict= false}]
56
-
···
1
(* generated from app.bsky.bookmark.defs *)
2
3
+
type bookmark = {subject: Com_atproto_repo_strongRef.main}
4
[@@deriving yojson {strict= false}]
5
6
type item =
···
13
let open Yojson.Safe.Util in
14
try
15
match json |> member "$type" |> to_string with
16
+
| "app.bsky.feed.defs#blockedPost" -> (
17
+
match App_bsky_feed_defs.blocked_post_of_yojson json with
18
+
| Ok v ->
19
+
Ok (BlockedPost v)
20
+
| Error e ->
21
+
Error e )
22
+
| "app.bsky.feed.defs#notFoundPost" -> (
23
+
match App_bsky_feed_defs.not_found_post_of_yojson json with
24
+
| Ok v ->
25
+
Ok (NotFoundPost v)
26
+
| Error e ->
27
+
Error e )
28
+
| "app.bsky.feed.defs#postView" -> (
29
+
match App_bsky_feed_defs.post_view_of_yojson json with
30
+
| Ok v ->
31
+
Ok (PostView v)
32
+
| Error e ->
33
+
Error e )
34
+
| _ ->
35
+
Ok (Unknown json)
36
with _ -> Error "failed to parse union"
37
38
let item_to_yojson = function
39
+
| BlockedPost v -> (
40
+
match App_bsky_feed_defs.blocked_post_to_yojson v with
41
+
| `Assoc fields ->
42
+
`Assoc (("$type", `String "app.bsky.feed.defs#blockedPost") :: fields)
43
+
| other ->
44
+
other )
45
+
| NotFoundPost v -> (
46
+
match App_bsky_feed_defs.not_found_post_to_yojson v with
47
+
| `Assoc fields ->
48
+
`Assoc (("$type", `String "app.bsky.feed.defs#notFoundPost") :: fields)
49
+
| other ->
50
+
other )
51
+
| PostView v -> (
52
+
match App_bsky_feed_defs.post_view_to_yojson v with
53
+
| `Assoc fields ->
54
+
`Assoc (("$type", `String "app.bsky.feed.defs#postView") :: fields)
55
+
| other ->
56
+
other )
57
+
| Unknown j ->
58
+
j
59
60
type bookmark_view =
61
+
{ subject: Com_atproto_repo_strongRef.main
62
+
; created_at: string option [@key "createdAt"] [@default None]
63
+
; item: item }
64
[@@deriving yojson {strict= false}]
+6
-10
pegasus/lexicons/app_bsky_bookmark_deleteBookmark.ml
+6
-10
pegasus/lexicons/app_bsky_bookmark_deleteBookmark.ml
···
5
let nsid = "app.bsky.bookmark.deleteBookmark"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
uri: string;
13
-
}
14
-
[@@deriving yojson {strict= false}]
15
16
type output = unit
17
let output_of_yojson _ = Ok ()
18
19
-
let call
20
-
~uri
21
-
(client : Hermes.client) : output Lwt.t =
22
let params = () in
23
let input = Some ({uri} |> input_to_yojson) in
24
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
25
end
26
-
···
5
let nsid = "app.bsky.bookmark.deleteBookmark"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {uri: string} [@@deriving yojson {strict= false}]
12
13
type output = unit
14
+
15
let output_of_yojson _ = Ok ()
16
17
+
let call ~uri (client : Hermes.client) : output Lwt.t =
18
let params = () in
19
let input = Some ({uri} |> input_to_yojson) in
20
+
Hermes.procedure client nsid (params_to_yojson params) input
21
+
output_of_yojson
22
end
+6
-15
pegasus/lexicons/app_bsky_bookmark_getBookmarks.ml
+6
-15
pegasus/lexicons/app_bsky_bookmark_getBookmarks.ml
···
5
let nsid = "app.bsky.bookmark.getBookmarks"
6
7
type params =
8
-
{
9
-
limit: int option [@default None];
10
-
cursor: string option [@default None];
11
-
}
12
-
[@@deriving yojson {strict= false}]
13
14
type output =
15
-
{
16
-
cursor: string option [@default None];
17
-
bookmarks: App_bsky_bookmark_defs.bookmark_view list;
18
-
}
19
-
[@@deriving yojson {strict= false}]
20
21
-
let call
22
-
?limit
23
-
?cursor
24
-
(client : Hermes.client) : output Lwt.t =
25
let params : params = {limit; cursor} in
26
Hermes.query client nsid (params_to_yojson params) output_of_yojson
27
end
28
-
···
5
let nsid = "app.bsky.bookmark.getBookmarks"
6
7
type params =
8
+
{limit: int option [@default None]; cursor: string option [@default None]}
9
+
[@@deriving yojson {strict= false}]
10
11
type output =
12
+
{ cursor: string option [@default None]
13
+
; bookmarks: App_bsky_bookmark_defs.bookmark_view list }
14
+
[@@deriving yojson {strict= false}]
15
16
+
let call ?limit ?cursor (client : Hermes.client) : output Lwt.t =
17
let params : params = {limit; cursor} in
18
Hermes.query client nsid (params_to_yojson params) output_of_yojson
19
end
+4
-14
pegasus/lexicons/app_bsky_contact_defs.ml
+4
-14
pegasus/lexicons/app_bsky_contact_defs.ml
···
1
(* generated from app.bsky.contact.defs *)
2
3
type match_and_contact_index =
4
-
{
5
-
match_: App_bsky_actor_defs.profile_view [@key "match"];
6
-
contact_index: int [@key "contactIndex"];
7
-
}
8
[@@deriving yojson {strict= false}]
9
10
type sync_status =
11
-
{
12
-
synced_at: string [@key "syncedAt"];
13
-
matches_count: int [@key "matchesCount"];
14
-
}
15
[@@deriving yojson {strict= false}]
16
17
-
type notification =
18
-
{
19
-
from: string;
20
-
to_: string [@key "to"];
21
-
}
22
[@@deriving yojson {strict= false}]
23
-
···
1
(* generated from app.bsky.contact.defs *)
2
3
type match_and_contact_index =
4
+
{ match_: App_bsky_actor_defs.profile_view [@key "match"]
5
+
; contact_index: int [@key "contactIndex"] }
6
[@@deriving yojson {strict= false}]
7
8
type sync_status =
9
+
{synced_at: string [@key "syncedAt"]; matches_count: int [@key "matchesCount"]}
10
[@@deriving yojson {strict= false}]
11
12
+
type notification = {from: string; to_: string [@key "to"]}
13
[@@deriving yojson {strict= false}]
+9
-12
pegasus/lexicons/app_bsky_contact_dismissMatch.ml
+9
-12
pegasus/lexicons/app_bsky_contact_dismissMatch.ml
···
5
let nsid = "app.bsky.contact.dismissMatch"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
subject: string;
13
-
}
14
-
[@@deriving yojson {strict= false}]
15
16
type output = unit
17
-
let output_of_yojson _ = Ok ()
18
-
let output_to_yojson () = `Assoc []
19
20
-
let call
21
-
~subject
22
-
(client : Hermes.client) : output Lwt.t =
23
let params = () in
24
let input = Some ({subject} |> input_to_yojson) in
25
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
26
end
27
-
···
5
let nsid = "app.bsky.contact.dismissMatch"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {subject: string} [@@deriving yojson {strict= false}]
12
13
type output = unit
14
+
15
+
let output_of_yojson _ = Ok ()
16
+
17
+
let output_to_yojson () = `Assoc []
18
19
+
let call ~subject (client : Hermes.client) : output Lwt.t =
20
let params = () in
21
let input = Some ({subject} |> input_to_yojson) in
22
+
Hermes.procedure client nsid (params_to_yojson params) input
23
+
output_of_yojson
24
end
+6
-15
pegasus/lexicons/app_bsky_contact_getMatches.ml
+6
-15
pegasus/lexicons/app_bsky_contact_getMatches.ml
···
5
let nsid = "app.bsky.contact.getMatches"
6
7
type params =
8
-
{
9
-
limit: int option [@default None];
10
-
cursor: string option [@default None];
11
-
}
12
-
[@@deriving yojson {strict= false}]
13
14
type output =
15
-
{
16
-
cursor: string option [@default None];
17
-
matches: App_bsky_actor_defs.profile_view list;
18
-
}
19
-
[@@deriving yojson {strict= false}]
20
21
-
let call
22
-
?limit
23
-
?cursor
24
-
(client : Hermes.client) : output Lwt.t =
25
let params : params = {limit; cursor} in
26
Hermes.query client nsid (params_to_yojson params) output_of_yojson
27
end
28
-
···
5
let nsid = "app.bsky.contact.getMatches"
6
7
type params =
8
+
{limit: int option [@default None]; cursor: string option [@default None]}
9
+
[@@deriving yojson {strict= false}]
10
11
type output =
12
+
{ cursor: string option [@default None]
13
+
; matches: App_bsky_actor_defs.profile_view list }
14
+
[@@deriving yojson {strict= false}]
15
16
+
let call ?limit ?cursor (client : Hermes.client) : output Lwt.t =
17
let params : params = {limit; cursor} in
18
Hermes.query client nsid (params_to_yojson params) output_of_yojson
19
end
+5
-7
pegasus/lexicons/app_bsky_contact_getSyncStatus.ml
+5
-7
pegasus/lexicons/app_bsky_contact_getSyncStatus.ml
···
5
let nsid = "app.bsky.contact.getSyncStatus"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
type output =
11
-
{
12
-
sync_status: App_bsky_contact_defs.sync_status option [@key "syncStatus"] [@default None];
13
-
}
14
-
[@@deriving yojson {strict= false}]
15
16
-
let call
17
-
(client : Hermes.client) : output Lwt.t =
18
Hermes.query client nsid (`Assoc []) output_of_yojson
19
end
20
-
···
5
let nsid = "app.bsky.contact.getSyncStatus"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
type output =
12
+
{ sync_status: App_bsky_contact_defs.sync_status option
13
+
[@key "syncStatus"] [@default None] }
14
+
[@@deriving yojson {strict= false}]
15
16
+
let call (client : Hermes.client) : output Lwt.t =
17
Hermes.query client nsid (`Assoc []) output_of_yojson
18
end
+9
-15
pegasus/lexicons/app_bsky_contact_importContacts.ml
+9
-15
pegasus/lexicons/app_bsky_contact_importContacts.ml
···
5
let nsid = "app.bsky.contact.importContacts"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
token: string;
13
-
contacts: string list;
14
-
}
15
[@@deriving yojson {strict= false}]
16
17
type output =
18
-
{
19
-
matches_and_contact_indexes: App_bsky_contact_defs.match_and_contact_index list [@key "matchesAndContactIndexes"];
20
-
}
21
-
[@@deriving yojson {strict= false}]
22
23
-
let call
24
-
~token
25
-
~contacts
26
-
(client : Hermes.client) : output Lwt.t =
27
let params = () in
28
let input = Some ({token; contacts} |> input_to_yojson) in
29
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
30
end
31
-
···
5
let nsid = "app.bsky.contact.importContacts"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {token: string; contacts: string list}
12
[@@deriving yojson {strict= false}]
13
14
type output =
15
+
{ matches_and_contact_indexes:
16
+
App_bsky_contact_defs.match_and_contact_index list
17
+
[@key "matchesAndContactIndexes"] }
18
+
[@@deriving yojson {strict= false}]
19
20
+
let call ~token ~contacts (client : Hermes.client) : output Lwt.t =
21
let params = () in
22
let input = Some ({token; contacts} |> input_to_yojson) in
23
+
Hermes.procedure client nsid (params_to_yojson params) input
24
+
output_of_yojson
25
end
+10
-6
pegasus/lexicons/app_bsky_contact_removeData.ml
+10
-6
pegasus/lexicons/app_bsky_contact_removeData.ml
···
5
let nsid = "app.bsky.contact.removeData"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
type input = unit
11
let input_of_yojson _ = Ok ()
12
let input_to_yojson () = `Assoc []
13
14
type output = unit
15
-
let output_of_yojson _ = Ok ()
16
-
let output_to_yojson () = `Assoc []
17
18
-
let call
19
-
(client : Hermes.client) : output Lwt.t =
20
let params = () in
21
let input = Some (input_to_yojson ()) in
22
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
23
end
24
-
···
5
let nsid = "app.bsky.contact.removeData"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
type input = unit
12
+
13
let input_of_yojson _ = Ok ()
14
+
15
let input_to_yojson () = `Assoc []
16
17
type output = unit
18
19
+
let output_of_yojson _ = Ok ()
20
+
21
+
let output_to_yojson () = `Assoc []
22
+
23
+
let call (client : Hermes.client) : output Lwt.t =
24
let params = () in
25
let input = Some (input_to_yojson ()) in
26
+
Hermes.procedure client nsid (params_to_yojson params) input
27
+
output_of_yojson
28
end
+9
-13
pegasus/lexicons/app_bsky_contact_sendNotification.ml
+9
-13
pegasus/lexicons/app_bsky_contact_sendNotification.ml
···
5
let nsid = "app.bsky.contact.sendNotification"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
from: string;
13
-
to_: string [@key "to"];
14
-
}
15
[@@deriving yojson {strict= false}]
16
17
type output = unit
18
-
let output_of_yojson _ = Ok ()
19
-
let output_to_yojson () = `Assoc []
20
21
-
let call
22
-
~from
23
-
~to_
24
-
(client : Hermes.client) : output Lwt.t =
25
let params = () in
26
let input = Some ({from; to_} |> input_to_yojson) in
27
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
28
end
29
-
···
5
let nsid = "app.bsky.contact.sendNotification"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {from: string; to_: string [@key "to"]}
12
[@@deriving yojson {strict= false}]
13
14
type output = unit
15
16
+
let output_of_yojson _ = Ok ()
17
+
18
+
let output_to_yojson () = `Assoc []
19
+
20
+
let call ~from ~to_ (client : Hermes.client) : output Lwt.t =
21
let params = () in
22
let input = Some ({from; to_} |> input_to_yojson) in
23
+
Hermes.procedure client nsid (params_to_yojson params) input
24
+
output_of_yojson
25
end
+9
-12
pegasus/lexicons/app_bsky_contact_startPhoneVerification.ml
+9
-12
pegasus/lexicons/app_bsky_contact_startPhoneVerification.ml
···
5
let nsid = "app.bsky.contact.startPhoneVerification"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
phone: string;
13
-
}
14
-
[@@deriving yojson {strict= false}]
15
16
type output = unit
17
-
let output_of_yojson _ = Ok ()
18
-
let output_to_yojson () = `Assoc []
19
20
-
let call
21
-
~phone
22
-
(client : Hermes.client) : output Lwt.t =
23
let params = () in
24
let input = Some ({phone} |> input_to_yojson) in
25
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
26
end
27
-
···
5
let nsid = "app.bsky.contact.startPhoneVerification"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {phone: string} [@@deriving yojson {strict= false}]
12
13
type output = unit
14
+
15
+
let output_of_yojson _ = Ok ()
16
+
17
+
let output_to_yojson () = `Assoc []
18
19
+
let call ~phone (client : Hermes.client) : output Lwt.t =
20
let params = () in
21
let input = Some ({phone} |> input_to_yojson) in
22
+
Hermes.procedure client nsid (params_to_yojson params) input
23
+
output_of_yojson
24
end
+6
-17
pegasus/lexicons/app_bsky_contact_verifyPhone.ml
+6
-17
pegasus/lexicons/app_bsky_contact_verifyPhone.ml
···
5
let nsid = "app.bsky.contact.verifyPhone"
6
7
type params = unit
8
let params_to_yojson () = `Assoc []
9
10
-
type input =
11
-
{
12
-
phone: string;
13
-
code: string;
14
-
}
15
-
[@@deriving yojson {strict= false}]
16
17
-
type output =
18
-
{
19
-
token: string;
20
-
}
21
-
[@@deriving yojson {strict= false}]
22
23
-
let call
24
-
~phone
25
-
~code
26
-
(client : Hermes.client) : output Lwt.t =
27
let params = () in
28
let input = Some ({phone; code} |> input_to_yojson) in
29
-
Hermes.procedure client nsid (params_to_yojson params) input output_of_yojson
30
end
31
-
···
5
let nsid = "app.bsky.contact.verifyPhone"
6
7
type params = unit
8
+
9
let params_to_yojson () = `Assoc []
10
11
+
type input = {phone: string; code: string} [@@deriving yojson {strict= false}]
12
13
+
type output = {token: string} [@@deriving yojson {strict= false}]
14
15
+
let call ~phone ~code (client : Hermes.client) : output Lwt.t =
16
let params = () in
17
let input = Some ({phone; code} |> input_to_yojson) in
18
+
Hermes.procedure client nsid (params_to_yojson params) input
19
+
output_of_yojson
20
end
-1
pegasus/lexicons/app_bsky_graph_follow.ml
-1
pegasus/lexicons/app_bsky_graph_follow.ml
+6
-13
pegasus/lexicons/app_bsky_unspecced_getOnboardingSuggestedStarterPacks.ml
+6
-13
pegasus/lexicons/app_bsky_unspecced_getOnboardingSuggestedStarterPacks.ml
···
4
module Main = struct
5
let nsid = "app.bsky.unspecced.getOnboardingSuggestedStarterPacks"
6
7
-
type params =
8
-
{
9
-
limit: int option [@default None];
10
-
}
11
-
[@@deriving yojson {strict= false}]
12
13
type output =
14
-
{
15
-
starter_packs: App_bsky_graph_defs.starter_pack_view list [@key "starterPacks"];
16
-
}
17
-
[@@deriving yojson {strict= false}]
18
19
-
let call
20
-
?limit
21
-
(client : Hermes.client) : output Lwt.t =
22
let params : params = {limit} in
23
Hermes.query client nsid (params_to_yojson params) output_of_yojson
24
end
25
-
···
4
module Main = struct
5
let nsid = "app.bsky.unspecced.getOnboardingSuggestedStarterPacks"
6
7
+
type params = {limit: int option [@default None]}
8
+
[@@deriving yojson {strict= false}]
9
10
type output =
11
+
{ starter_packs: App_bsky_graph_defs.starter_pack_view list
12
+
[@key "starterPacks"] }
13
+
[@@deriving yojson {strict= false}]
14
15
+
let call ?limit (client : Hermes.client) : output Lwt.t =
16
let params : params = {limit} in
17
Hermes.query client nsid (params_to_yojson params) output_of_yojson
18
end
+5
-15
pegasus/lexicons/app_bsky_unspecced_getOnboardingSuggestedStarterPacksSkeleton.ml
+5
-15
pegasus/lexicons/app_bsky_unspecced_getOnboardingSuggestedStarterPacksSkeleton.ml
···
5
let nsid = "app.bsky.unspecced.getOnboardingSuggestedStarterPacksSkeleton"
6
7
type params =
8
-
{
9
-
viewer: string option [@default None];
10
-
limit: int option [@default None];
11
-
}
12
-
[@@deriving yojson {strict= false}]
13
14
-
type output =
15
-
{
16
-
starter_packs: string list [@key "starterPacks"];
17
-
}
18
-
[@@deriving yojson {strict= false}]
19
20
-
let call
21
-
?viewer
22
-
?limit
23
-
(client : Hermes.client) : output Lwt.t =
24
let params : params = {viewer; limit} in
25
Hermes.query client nsid (params_to_yojson params) output_of_yojson
26
end
27
-
···
5
let nsid = "app.bsky.unspecced.getOnboardingSuggestedStarterPacksSkeleton"
6
7
type params =
8
+
{viewer: string option [@default None]; limit: int option [@default None]}
9
+
[@@deriving yojson {strict= false}]
10
11
+
type output = {starter_packs: string list [@key "starterPacks"]}
12
+
[@@deriving yojson {strict= false}]
13
14
+
let call ?viewer ?limit (client : Hermes.client) : output Lwt.t =
15
let params : params = {viewer; limit} in
16
Hermes.query client nsid (params_to_yojson params) output_of_yojson
17
end
+3
-1
pegasus/lexicons/app_bsky_unspecced_getPostThreadOtherV2.ml
+3
-1
pegasus/lexicons/app_bsky_unspecced_getPostThreadOtherV2.ml
···
37
type params =
38
{
39
anchor: string;
40
+
prioritize_followed_users: bool option [@key "prioritizeFollowedUsers"] [@default None];
41
}
42
[@@deriving yojson {strict= false}]
43
···
49
50
let call
51
~anchor
52
+
?prioritize_followed_users
53
(client : Hermes.client) : output Lwt.t =
54
+
let params : params = {anchor; prioritize_followed_users} in
55
Hermes.query client nsid (params_to_yojson params) output_of_yojson
56
end
57
+3
-1
pegasus/lexicons/app_bsky_unspecced_getPostThreadV2.ml
+3
-1
pegasus/lexicons/app_bsky_unspecced_getPostThreadV2.ml
···
67
above: bool option [@default None];
68
below: int option [@default None];
69
branching_factor: int option [@key "branchingFactor"] [@default None];
70
sort: string option [@default None];
71
}
72
[@@deriving yojson {strict= false}]
···
84
?above
85
?below
86
?branching_factor
87
?sort
88
(client : Hermes.client) : output Lwt.t =
89
-
let params : params = {anchor; above; below; branching_factor; sort} in
90
Hermes.query client nsid (params_to_yojson params) output_of_yojson
91
end
92
···
67
above: bool option [@default None];
68
below: int option [@default None];
69
branching_factor: int option [@key "branchingFactor"] [@default None];
70
+
prioritize_followed_users: bool option [@key "prioritizeFollowedUsers"] [@default None];
71
sort: string option [@default None];
72
}
73
[@@deriving yojson {strict= false}]
···
85
?above
86
?below
87
?branching_factor
88
+
?prioritize_followed_users
89
?sort
90
(client : Hermes.client) : output Lwt.t =
91
+
let params : params = {anchor; above; below; branching_factor; prioritize_followed_users; sort} in
92
Hermes.query client nsid (params_to_yojson params) output_of_yojson
93
end
94
+4
-15
pegasus/lexicons/com_atproto_lexicon_resolveLexicon.ml
+4
-15
pegasus/lexicons/com_atproto_lexicon_resolveLexicon.ml
···
4
module Main = struct
5
let nsid = "com.atproto.lexicon.resolveLexicon"
6
7
-
type params =
8
-
{
9
-
nsid: string;
10
-
}
11
-
[@@deriving yojson {strict= false}]
12
13
type output =
14
-
{
15
-
cid: string;
16
-
schema: Com_atproto_lexicon_schema.main;
17
-
uri: string;
18
-
}
19
-
[@@deriving yojson {strict= false}]
20
21
-
let call
22
-
~nsid
23
-
(client : Hermes.client) : output Lwt.t =
24
let params : params = {nsid} in
25
Hermes.query client nsid (params_to_yojson params) output_of_yojson
26
end
27
-
···
4
module Main = struct
5
let nsid = "com.atproto.lexicon.resolveLexicon"
6
7
+
type params = {nsid: string} [@@deriving yojson {strict= false}]
8
9
type output =
10
+
{cid: string; schema: Com_atproto_lexicon_schema.main; uri: string}
11
+
[@@deriving yojson {strict= false}]
12
13
+
let call ~nsid (client : Hermes.client) : output Lwt.t =
14
let params : params = {nsid} in
15
Hermes.query client nsid (params_to_yojson params) output_of_yojson
16
end
+7
-7
pegasus/lexicons/com_atproto_moderation_defs.ml
+7
-7
pegasus/lexicons/com_atproto_moderation_defs.ml
···
7
| _ -> Error "reason_type: expected string"
8
let reason_type_to_yojson s = `String s
9
10
-
(** Spam: frequent unwanted promotion, replies, mentions. Prefer new lexicon definition `tools.ozone.report.defs#reasonMisleadingSpam`. *)
11
let reason_spam = "com.atproto.moderation.defs#reasonSpam"
12
13
-
(** Direct violation of server rules, laws, terms of service. Prefer new lexicon definition `tools.ozone.report.defs#reasonRuleOther`. *)
14
let reason_violation = "com.atproto.moderation.defs#reasonViolation"
15
16
-
(** Misleading identity, affiliation, or content. Prefer new lexicon definition `tools.ozone.report.defs#reasonMisleadingOther`. *)
17
let reason_misleading = "com.atproto.moderation.defs#reasonMisleading"
18
19
-
(** Unwanted or mislabeled sexual content. Prefer new lexicon definition `tools.ozone.report.defs#reasonSexualUnlabeled`. *)
20
let reason_sexual = "com.atproto.moderation.defs#reasonSexual"
21
22
-
(** Rude, harassing, explicit, or otherwise unwelcoming behavior. Prefer new lexicon definition `tools.ozone.report.defs#reasonHarassmentOther`. *)
23
let reason_rude = "com.atproto.moderation.defs#reasonRude"
24
25
-
(** Reports not falling under another report category. Prefer new lexicon definition `tools.ozone.report.defs#reasonOther`. *)
26
let reason_other = "com.atproto.moderation.defs#reasonOther"
27
28
-
(** Appeal a previously taken moderation action *)
29
let reason_appeal = "com.atproto.moderation.defs#reasonAppeal"
30
31
(** string type with known values: Tag describing a type of subject that might be reported. *)
···
7
| _ -> Error "reason_type: expected string"
8
let reason_type_to_yojson s = `String s
9
10
+
(** Spam: frequent unwanted promotion, replies, mentions *)
11
let reason_spam = "com.atproto.moderation.defs#reasonSpam"
12
13
+
(** Direct violation of server rules, laws, terms of service *)
14
let reason_violation = "com.atproto.moderation.defs#reasonViolation"
15
16
+
(** Misleading identity, affiliation, or content *)
17
let reason_misleading = "com.atproto.moderation.defs#reasonMisleading"
18
19
+
(** Unwanted or mislabeled sexual content *)
20
let reason_sexual = "com.atproto.moderation.defs#reasonSexual"
21
22
+
(** Rude, harassing, explicit, or otherwise unwelcoming behavior *)
23
let reason_rude = "com.atproto.moderation.defs#reasonRude"
24
25
+
(** Other: reports not falling under another report category *)
26
let reason_other = "com.atproto.moderation.defs#reasonOther"
27
28
+
(** Appeal: appeal a previously taken moderation action *)
29
let reason_appeal = "com.atproto.moderation.defs#reasonAppeal"
30
31
(** string type with known values: Tag describing a type of subject that might be reported. *)
+1
-1
pegasus/lexicons/com_atproto_server_deleteSession.ml
+1
-1
pegasus/lexicons/com_atproto_server_deleteSession.ml
+1
-1
pegasus/lexicons/com_atproto_server_getSession.ml
+1
-1
pegasus/lexicons/com_atproto_server_getSession.ml
···
11
{
12
handle: string;
13
did: string;
14
-
did_doc: Yojson.Safe.t option [@key "didDoc"] [@default None];
15
email: string option [@default None];
16
email_confirmed: bool option [@key "emailConfirmed"] [@default None];
17
email_auth_factor: bool option [@key "emailAuthFactor"] [@default None];
18
active: bool option [@default None];
19
status: string option [@default None];
20
}
···
11
{
12
handle: string;
13
did: string;
14
email: string option [@default None];
15
email_confirmed: bool option [@key "emailConfirmed"] [@default None];
16
email_auth_factor: bool option [@key "emailAuthFactor"] [@default None];
17
+
did_doc: Yojson.Safe.t option [@key "didDoc"] [@default None];
18
active: bool option [@default None];
19
status: string option [@default None];
20
}
-3
pegasus/lexicons/com_atproto_server_refreshSession.ml
-3
pegasus/lexicons/com_atproto_server_refreshSession.ml
···
14
handle: string;
15
did: string;
16
did_doc: Yojson.Safe.t option [@key "didDoc"] [@default None];
17
-
email: string option [@default None];
18
-
email_confirmed: bool option [@key "emailConfirmed"] [@default None];
19
-
email_auth_factor: bool option [@key "emailAuthFactor"] [@default None];
20
active: bool option [@default None];
21
status: string option [@default None];
22
}
+3
-14
pegasus/lexicons/com_atproto_temp_dereferenceScope.ml
+3
-14
pegasus/lexicons/com_atproto_temp_dereferenceScope.ml
···
4
module Main = struct
5
let nsid = "com.atproto.temp.dereferenceScope"
6
7
-
type params =
8
-
{
9
-
scope: string;
10
-
}
11
-
[@@deriving yojson {strict= false}]
12
13
-
type output =
14
-
{
15
-
scope: string;
16
-
}
17
-
[@@deriving yojson {strict= false}]
18
19
-
let call
20
-
~scope
21
-
(client : Hermes.client) : output Lwt.t =
22
let params : params = {scope} in
23
Hermes.query client nsid (params_to_yojson params) output_of_yojson
24
end
25
-
···
4
module Main = struct
5
let nsid = "com.atproto.temp.dereferenceScope"
6
7
+
type params = {scope: string} [@@deriving yojson {strict= false}]
8
9
+
type output = {scope: string} [@@deriving yojson {strict= false}]
10
11
+
let call ~scope (client : Hermes.client) : output Lwt.t =
12
let params : params = {scope} in
13
Hermes.query client nsid (params_to_yojson params) output_of_yojson
14
end
-27
pegasus/lexicons/lexicons.ml
-27
pegasus/lexicons/lexicons.ml
···
8
module GetJobStatus = App_bsky_video_getJobStatus
9
module GetUploadLimits = App_bsky_video_getUploadLimits
10
end
11
-
module Contact = struct
12
-
module Defs = App_bsky_contact_defs
13
-
module SendNotification = App_bsky_contact_sendNotification
14
-
module GetSyncStatus = App_bsky_contact_getSyncStatus
15
-
module StartPhoneVerification = App_bsky_contact_startPhoneVerification
16
-
module GetMatches = App_bsky_contact_getMatches
17
-
module ImportContacts = App_bsky_contact_importContacts
18
-
module DismissMatch = App_bsky_contact_dismissMatch
19
-
module RemoveData = App_bsky_contact_removeData
20
-
module VerifyPhone = App_bsky_contact_verifyPhone
21
-
end
22
-
module Bookmark = struct
23
-
module Defs = App_bsky_bookmark_defs
24
-
module DeleteBookmark = App_bsky_bookmark_deleteBookmark
25
-
module GetBookmarks = App_bsky_bookmark_getBookmarks
26
-
module CreateBookmark = App_bsky_bookmark_createBookmark
27
-
end
28
module Embed = struct
29
module Defs = App_bsky_embed_defs
30
module Record = App_bsky_embed_record
···
51
module GetSuggestedFeedsSkeleton = App_bsky_unspecced_getSuggestedFeedsSkeleton
52
module SearchStarterPacksSkeleton = App_bsky_unspecced_searchStarterPacksSkeleton
53
module Defs = App_bsky_unspecced_defs
54
-
module GetOnboardingSuggestedStarterPacksSkeleton = App_bsky_unspecced_getOnboardingSuggestedStarterPacksSkeleton
55
module GetSuggestedUsers = App_bsky_unspecced_getSuggestedUsers
56
module GetPostThreadOtherV2 = App_bsky_unspecced_getPostThreadOtherV2
57
module GetSuggestedStarterPacks = App_bsky_unspecced_getSuggestedStarterPacks
58
module GetSuggestedStarterPacksSkeleton = App_bsky_unspecced_getSuggestedStarterPacksSkeleton
59
-
module GetOnboardingSuggestedStarterPacks = App_bsky_unspecced_getOnboardingSuggestedStarterPacks
60
module GetSuggestedUsersSkeleton = App_bsky_unspecced_getSuggestedUsersSkeleton
61
module GetPostThreadV2 = App_bsky_unspecced_getPostThreadV2
62
module GetTrends = App_bsky_unspecced_getTrends
···
135
module Richtext = struct
136
module Facet = App_bsky_richtext_facet
137
end
138
-
module Ageassurance = struct
139
-
module Begin = App_bsky_ageassurance_begin
140
-
module Defs = App_bsky_ageassurance_defs
141
-
module GetState = App_bsky_ageassurance_getState
142
-
module GetConfig = App_bsky_ageassurance_getConfig
143
-
end
144
module Actor = struct
145
module SearchActorsTypeahead = App_bsky_actor_searchActorsTypeahead
146
module Defs = App_bsky_actor_defs
···
163
module Com = struct
164
module Atproto = struct
165
module Temp = struct
166
-
module DereferenceScope = Com_atproto_temp_dereferenceScope
167
module AddReservedHandle = Com_atproto_temp_addReservedHandle
168
module CheckSignupQueue = Com_atproto_temp_checkSignupQueue
169
module CheckHandleAvailability = Com_atproto_temp_checkHandleAvailability
···
234
module CreateInviteCode = Com_atproto_server_createInviteCode
235
end
236
module Lexicon = struct
237
-
module ResolveLexicon = Com_atproto_lexicon_resolveLexicon
238
module Schema = Com_atproto_lexicon_schema
239
end
240
module Sync = struct
···
8
module GetJobStatus = App_bsky_video_getJobStatus
9
module GetUploadLimits = App_bsky_video_getUploadLimits
10
end
11
module Embed = struct
12
module Defs = App_bsky_embed_defs
13
module Record = App_bsky_embed_record
···
34
module GetSuggestedFeedsSkeleton = App_bsky_unspecced_getSuggestedFeedsSkeleton
35
module SearchStarterPacksSkeleton = App_bsky_unspecced_searchStarterPacksSkeleton
36
module Defs = App_bsky_unspecced_defs
37
module GetSuggestedUsers = App_bsky_unspecced_getSuggestedUsers
38
module GetPostThreadOtherV2 = App_bsky_unspecced_getPostThreadOtherV2
39
module GetSuggestedStarterPacks = App_bsky_unspecced_getSuggestedStarterPacks
40
module GetSuggestedStarterPacksSkeleton = App_bsky_unspecced_getSuggestedStarterPacksSkeleton
41
module GetSuggestedUsersSkeleton = App_bsky_unspecced_getSuggestedUsersSkeleton
42
module GetPostThreadV2 = App_bsky_unspecced_getPostThreadV2
43
module GetTrends = App_bsky_unspecced_getTrends
···
116
module Richtext = struct
117
module Facet = App_bsky_richtext_facet
118
end
119
module Actor = struct
120
module SearchActorsTypeahead = App_bsky_actor_searchActorsTypeahead
121
module Defs = App_bsky_actor_defs
···
138
module Com = struct
139
module Atproto = struct
140
module Temp = struct
141
module AddReservedHandle = Com_atproto_temp_addReservedHandle
142
module CheckSignupQueue = Com_atproto_temp_checkSignupQueue
143
module CheckHandleAvailability = Com_atproto_temp_checkHandleAvailability
···
208
module CreateInviteCode = Com_atproto_server_createInviteCode
209
end
210
module Lexicon = struct
211
module Schema = Com_atproto_lexicon_schema
212
end
213
module Sync = struct