this repo has no description
Restore additional libraries that depend on parameterized Requests.t
Restored these libraries that also need the parameterized Requests.t type:
- peertubee/peertubee.ml and peertubee.mli
- immich/immich.ml and immich.mli
- typesense-client/typesense_client.ml and typesense_client.mli
- karakeep/karakeep.ml
These libraries all depend on Requests.t being parameterized as:
type ('clock, 'net) t
+21
-12
+4
-2
stack/immich/immich.ml
+4
-2
stack/immich/immich.ml
···
4
4
5
5
(** {1 Types} *)
6
6
7
-
type t = {
7
+
type 'net t_internal = {
8
8
base_url: string;
9
9
api_key: string;
10
-
requests_session: Requests.t;
10
+
requests_session: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;
11
11
}
12
+
13
+
type t = [`Generic | `Unix] t_internal
12
14
13
15
type person = {
14
16
id: string;
+1
-1
stack/immich/immich.mli
+1
-1
stack/immich/immich.mli
···
37
37
@return An Immich client configured for the specified instance
38
38
*)
39
39
val create :
40
-
requests_session:Requests.t ->
40
+
requests_session:(float Eio.Time.clock_ty Eio.Resource.t, [`Generic | `Unix] Eio.Net.ty Eio.Resource.t) Requests.t ->
41
41
base_url:string ->
42
42
api_key:string ->
43
43
t
+4
-2
stack/karakeep/karakeep.ml
+4
-2
stack/karakeep/karakeep.ml
···
27
27
let json_mems_empty = Jsont.Object ([], Jsont.Meta.none)
28
28
29
29
(** Type representing a Karakeep client session *)
30
-
type t = {
30
+
type 'net t_internal = {
31
31
api_key: string;
32
32
base_url: string;
33
-
http_client: Requests.t;
33
+
http_client: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;
34
34
}
35
+
36
+
type t = [`Generic | `Unix] t_internal
35
37
36
38
(** Create a new Karakeep client *)
37
39
let create ~sw ~env ~api_key ~base_url : t =
+4
-2
stack/peertubee/peertubee.ml
+4
-2
stack/peertubee/peertubee.ml
···
1
1
(** PeerTube API client implementation (Eio version) *)
2
2
3
3
(** Type representing a PeerTube client *)
4
-
type t = {
4
+
type 'net t_internal = {
5
5
base_url: string;
6
-
requests_session: Requests.t;
6
+
requests_session: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;
7
7
}
8
+
9
+
type t = [`Generic | `Unix] t_internal
8
10
9
11
(** Create a new PeerTube client *)
10
12
let create ~requests_session ~base_url : t =
+1
-1
stack/peertubee/peertubee.mli
+1
-1
stack/peertubee/peertubee.mli
···
8
8
@param base_url Base URL of the PeerTube instance
9
9
@return A PeerTube client configured for the specified instance *)
10
10
val create :
11
-
requests_session:Requests.t ->
11
+
requests_session:(float Eio.Time.clock_ty Eio.Resource.t, [`Generic | `Unix] Eio.Net.ty Eio.Resource.t) Requests.t ->
12
12
base_url:string ->
13
13
t
14
14
+6
-3
stack/typesense-client/typesense_client.ml
+6
-3
stack/typesense-client/typesense_client.ml
···
6
6
api_key : string;
7
7
}
8
8
9
-
(** Client type *)
10
-
type t = {
9
+
(** Internal polymorphic type for the client *)
10
+
type 'net t_internal = {
11
11
config: config;
12
-
requests_session: Requests.t;
12
+
requests_session: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;
13
13
}
14
+
15
+
(** Public client type *)
16
+
type t = [`Generic | `Unix] t_internal
14
17
15
18
(** Create a new Typesense client *)
16
19
let create ~requests_session ~config : t =
+1
-1
stack/typesense-client/typesense_client.mli
+1
-1
stack/typesense-client/typesense_client.mli
···
14
14
@param config Configuration with endpoint and API key
15
15
@return A client instance *)
16
16
val create :
17
-
requests_session:Requests.t ->
17
+
requests_session:(float Eio.Time.clock_ty Eio.Resource.t, [`Generic | `Unix] Eio.Net.ty Eio.Resource.t) Requests.t ->
18
18
config:config ->
19
19
t
20
20