sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
module Wcs_call : sig ... end
val before_default :
Wcs_lib.Wcs_t.message_request ->
Wcs_lib.Wcs_t.message_request
val after_default :
Wcs_lib.Wcs_t.message_response ->
Wcs_lib.Wcs_t.message_response
val interpret :
?before:(Wcs_lib.Wcs_t.message_request -> Wcs_lib.Wcs_t.message_request) ->
?after:(Wcs_lib.Wcs_t.message_response -> Wcs_lib.Wcs_t.message_response) ->
Wcs_lib.Wcs_t.credential ->
string ->
Wcs_lib.Wcs_t.message_request ->
string * Wcs_lib.Wcs_t.message_response * Wcs_lib.Wcs_t.json option
val exec :
?before:(Wcs_lib.Wcs_t.message_request -> Wcs_lib.Wcs_t.message_request) ->
?after:(Wcs_lib.Wcs_t.message_response -> Wcs_lib.Wcs_t.message_response) ->
?user_input:(unit -> string) ->
?output:(string -> unit) ->
Wcs_lib.Wcs_t.credential ->
string ->
Wcs_lib.Wcs_t.json ->
string ->
Wcs_lib.Wcs_t.json
val get_credential : string option -> Wcs_lib.Wcs_j.credential