commit f381adacafb21be3aee90915fee55333409f5078 · anil.recoil.org/slop

+4 -2

stack/immich/immich.ml

···

       4
       4
        
       

     

       5
       5
        
       (** {1 Types} *)

     

       6
       6
        
       

     

       7
       7
       -
       type t = {

     

       7
       7
       +
       type 'net t_internal = {

     

       8
       8
        
         base_url: string;

     

       9
       9
        
         api_key: string;

     

       10
       10
       -
         requests_session: Requests.t;

     

       10
       10
       +
         requests_session: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;

     

       11
       11
        
       }

     

       12
       12
       +
       

     

       13
       13
       +
       type t = [`Generic | `Unix] t_internal

     

       12
       14
        
       

     

       13
       15
        
       type person = {

     

       14
       16
        
         id: string;

+1 -1

stack/immich/immich.mli

···

       37
       37
        
           @return An Immich client configured for the specified instance

     

       38
       38
        
       *)

     

       39
       39
        
       val create :

     

       40
       40
       -
         requests_session:Requests.t ->

     

       40
       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

···

       27
       27
        
       let json_mems_empty = Jsont.Object ([], Jsont.Meta.none)

     

       28
       28
        
       

     

       29
       29
        
       (** Type representing a Karakeep client session *)

     

       30
       30
       -
       type t = {

     

       30
       30
       +
       type 'net t_internal = {

     

       31
       31
        
         api_key: string;

     

       32
       32
        
         base_url: string;

     

       33
       33
       -
         http_client: Requests.t;

     

       33
       33
       +
         http_client: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;

     

       34
       34
        
       }

     

       35
       35
       +
       

     

       36
       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

···

       1
       1
        
       (** PeerTube API client implementation (Eio version) *)

     

       2
       2
        
       

     

       3
       3
        
       (** Type representing a PeerTube client *)

     

       4
       4
       -
       type t = {

     

       4
       4
       +
       type 'net t_internal = {

     

       5
       5
        
         base_url: string;

     

       6
       6
       -
         requests_session: Requests.t;

     

       6
       6
       +
         requests_session: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;

     

       7
       7
        
       }

     

       8
       8
       +
       

     

       9
       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

···

       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
       11
       -
         requests_session:Requests.t ->

     

       11
       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
       6
        
         api_key : string;

     

       7
       7
        
       }

     

       8
       8
        
       

     

       9
       9
       -
       (** Client type *)

     

       10
       10
       -
       type t = {

     

       9
       9
       +
       (** Internal polymorphic type for the client *)

     

       10
       10
       +
       type 'net t_internal = {

     

       11
       11
        
         config: config;

     

       12
       12
       -
         requests_session: Requests.t;

     

       12
       12
       +
         requests_session: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;

     

       13
       13
        
       }

     

       14
       14
       +
       

     

       15
       15
       +
       (** Public client type *)

     

       16
       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

···

       14
       14
        
           @param config Configuration with endpoint and API key

     

       15
       15
        
           @return A client instance *)

     

       16
       16
        
       val create :

     

       17
       17
       -
         requests_session:Requests.t ->

     

       17
       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