Module `Common.Types`Source

Sourcetype site_metadata = {

name : string;
icon : string option;
url : string;

}

Sourceclass type site_metadata_jsoo = object ... end

Sourceval site_metadata_to_jsoo : site_metadata -> site_metadata_jsoo Ezjs_min.t

Sourceval site_metadata_of_jsoo : site_metadata_jsoo Ezjs_min.t -> site_metadata

val site_metadata_jsoo_conv : 
  (site_metadata ->
  site_metadata_jsoo Ezjs_min.t)
  * (site_metadata_jsoo Ezjs_min.t ->
  site_metadata)

Sourcetype request_source = [

| `api of site_metadata
| `client

]

Sourceclass type request_source_jsoo = object ... end

Sourceval request_source_to_jsoo : request_source -> request_source_jsoo Ezjs_min.t

Sourceval request_source_of_jsoo : request_source_jsoo Ezjs_min.t -> request_source

Source

val request_source_jsoo_conv : 
  (request_source ->
  request_source_jsoo Ezjs_min.t)
  * (request_source_jsoo Ezjs_min.t ->
  request_source)

Sourcetype 'input request_aux = {

req_id : int;
req_src : request_source;
req_input : 'input;

}

Sourceclass type 'input request_aux_jsoo = object ... end

Source

val request_aux_to_jsoo : 
  (('input -> 'res) * ('res -> 'input)) ->
  'input request_aux ->
  'res request_aux_jsoo Ezjs_min.t

Source

val request_aux_of_jsoo : 
  (('input -> 'res) * ('res -> 'input)) ->
  'res request_aux_jsoo Ezjs_min.t ->
  'input request_aux

Source

val request_aux_jsoo_conv : 
  ((('input -> 'input_jsoo) * ('input_jsoo -> 'input)) ->
  'input request_aux ->
  'input_jsoo request_aux_jsoo Ezjs_min.t)
  * ((('input -> 'input_jsoo) * ('input_jsoo -> 'input)) ->
  'input_jsoo request_aux_jsoo Ezjs_min.t ->
  'input request_aux)

Sourcetype 'output response_aux = {

res_id : int;
res_src : [ `background ];
res_output : 'output;
res_ok : bool;

}

Sourceclass type 'output response_aux_jsoo = object ... end

Source

val response_aux_to_jsoo : 
  (('output -> 'res) * ('res -> 'output)) ->
  'output response_aux ->
  'res response_aux_jsoo Ezjs_min.t

Source

val response_aux_of_jsoo : 
  (('output -> 'res) * ('res -> 'output)) ->
  'res response_aux_jsoo Ezjs_min.t ->
  'output response_aux

Source

val response_aux_jsoo_conv : 
  ((('output -> 'output_jsoo) * ('output_jsoo -> 'output)) ->
  'output response_aux ->
  'output_jsoo response_aux_jsoo Ezjs_min.t)
  * ((('output -> 'output_jsoo) * ('output_jsoo -> 'output)) ->
  'output_jsoo response_aux_jsoo Ezjs_min.t ->
  'output response_aux)

Sourcemodule type S = sig ... end

Sourcemodule Make (S : S) : sig ... end

Sourcetype 'a account_aux = [

| `not_enabled
| `not_approved
| `locked
| `connected of 'a

]

Sourceclass type 'a account_aux_jsoo = object ... end

Source

val account_aux_to_jsoo : 
  (('res -> 't36) * ('t36 -> 'res)) ->
  'res account_aux ->
  't36 account_aux_jsoo Ezjs_min.t

Source

val account_aux_of_jsoo : 
  (('res -> 't36) * ('t36 -> 'res)) ->
  't36 account_aux_jsoo Ezjs_min.t ->
  'res account_aux

Source

val account_aux_jsoo_conv : 
  ((('a -> 'a_jsoo) * ('a_jsoo -> 'a)) ->
  'a account_aux ->
  'a_jsoo account_aux_jsoo Ezjs_min.t)
  * ((('a -> 'a_jsoo) * ('a_jsoo -> 'a)) ->
  'a_jsoo account_aux_jsoo Ezjs_min.t ->
  'a account_aux)

Sourcemodule type SAccount = sig ... end

package jext

Module Common.TypesSource

Module `Common.Types`Source