jext 0.1.0 · OCaml Package

type site_metadata = {

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

}

class type site_metadata_jsoo = object ... end

val site_metadata_to_jsoo : site_metadata -> site_metadata_jsoo Ezjs_min.t

val 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)

type request_source = [

| `api of site_metadata
| `client

]

class type request_source_jsoo = object ... end

val request_source_to_jsoo : request_source -> request_source_jsoo Ezjs_min.t

val request_source_of_jsoo : request_source_jsoo Ezjs_min.t -> request_source

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

type 'input request_aux = {

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

}

class type 'input request_aux_jsoo = object ... end

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

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

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)

type 'output response_aux = {

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

}

class type 'output response_aux_jsoo = object ... end

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

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

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)

module type S = sig ... end

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

type 'a account_aux = [

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

]

class type 'a account_aux_jsoo = object ... end

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

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

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)

module type SAccount = sig ... end

package jext