package vif
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
A simple web framework for OCaml 5
Install
dune-project
Dependency
Authors
Maintainers
Sources
vif-0.0.1.beta2.tbz
sha256=a16ff3dba7675d237d59188b032052b383ad9e367eb7c570c4e6e78b978b98e5
sha512=ad553f15f33f9f2427b691713f630476fd1f15b4cb61944a401cfb35c29dd3d1d3760b02dd211bddd39b6cf6ccc8ea5d9f88eefc3776611e2a7020242a16b9a9
doc/vif.core/Vif_core/Response/index.html
Module Vif_core.ResponseSource
Source
type ('p, 'q, 'a) t = | Add_header : string * string -> ('p, 'p, unit) t| Add_unless_exists : string * string -> ('p, 'p, bool) t| Set_header : string * string -> ('p, 'p, unit) t| Rem_header : string -> ('p, 'p, unit) t| Return : 'a -> ('p, 'p, 'a) t| Bind : ('p, 'q, 'a) t * ('a -> ('q, 'r, 'b) t) -> ('p, 'r, 'b) t| Source : string Flux.source -> (empty, filled, unit) t| Stream : string Flux.stream -> (empty, filled, unit) t| String : string -> (empty, filled, unit) t| Websocket : (empty, sent, unit) t| Respond : [ Vif_core__.Vif_status.standard | `Code of int ] -> (filled, sent, unit) t
Source
val redirect_to :
?with_get:bool ->
('a, 'b, 'c) Vif_core__.Vif_request.t ->
(Tyre.evaluable, 'd, (filled, sent, unit) t) Vif_core__.Vif_uri.t ->
'dSource
val with_source :
?compression:[> `DEFLATE | `Gzip ] ->
('a, 'b, 'c) Vif_core__.Vif_request.t ->
string Flux.source ->
(empty, filled, unit) tSource
val with_stream :
?compression:[> `DEFLATE | `Gzip ] ->
('a, 'b, 'c) Vif_core__.Vif_request.t ->
string Flux.stream ->
(empty, filled, unit) tSource
val with_tyxml :
?compression:[> `DEFLATE | `Gzip ] ->
('a, 'b, 'c) Vif_core__.Vif_request.t ->
Tyxml.Html.doc ->
(empty, filled, unit) tSource
val with_json :
?compression:[> `DEFLATE | `Gzip ] ->
('a, 'b, 'c) Vif_core__.Vif_request.t ->
?format:Jsont.format ->
?number_format:Jsont.number_format ->
'd Jsont.t ->
'd ->
(empty, filled, unit) tSource
val upgrade :
?headers:(H1.Headers.name * H1.Headers.value) list ->
'a Vif_core__.Vif_request0.t ->
unit sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>