Module `Eliom.Registration`

Client-side service registration.

The interface is meant to be compatible with server-side Registration.

See the manual chapter on client-side services for details.

type 'a kind

type browser_content = [

| `Browser

]

type 'a application_content = [

| `Appl of 'a

]

module Html : 
  Registration_sigs.S
    with type page = Html_types.html Content.Html.elt
     and type options = unit
     and type return = Service.non_ocaml
     and type result = browser_content kind

module Action : 
  Registration_sigs.S
    with type page = unit
     and type options = [ `Reload | `NoReload ]
     and type return = Service.non_ocaml
     and type result = browser_content kind

module Unit : 
  Registration_sigs.S
    with type page = unit
     and type options = unit
     and type return = Service.non_ocaml
     and type result = browser_content kind

type appl_service_options = {

do_not_launch : bool;

}

Has no effect on client; for compatibility with server

module App (_ : Registration_sigs.APP_PARAM) : sig ... end

type _ redirection =

| Redirection : (unit, unit, Service.get, _, _, _, _, [ `WithoutSuffix ], unit, unit, 'a) Service.t -> 'a redirection

module Redirection : 
  Registration_sigs.S_poly_with_send
    with type 'a page = Service.non_ocaml redirection
     and type options =
           [ `MovedPermanently
           | `Found
           | `SeeOther
           | `NotModified
           | `NotNodifed
           | `UseProxy
           | `TemporaryRedirect ]
     and type 'a return = Service.non_ocaml
     and type 'a result = browser_content kind

module Any : 
  Registration_sigs.S_poly_with_send
    with type 'a page = 'a kind
     and type options = unit
     and type 'a return = Service.non_ocaml
     and type 'a result = 'a kind

val appl_self_redirect : 
  ('page -> [< 'a application_content | browser_content ] kind Lwt.t) ->
  'page ->
  'appl application_content kind Lwt.t

For compatibility with server-side appl_self_redirect

val set_status : Cohttp.Code.status -> unit

Does nothing on the client, where there is no HTTP response to send: for %shared service handlers. See the server-side set_status.

val get_status : unit -> Cohttp.Code.status option

get_status () is None on the client.