package devkit
Development kit - general purpose library
Install
Dune Dependency
Authors
Maintainers
Sources
devkit-1.20240429.tbz
sha256=222f8ac131b1d970dab7eeb2714bfd6b9338b88b1082e6e01c136ae19e7eaef4
sha512=c9e6d93e3d21e5530c0f4d5baca51bf1f0a5d19248f8af7678d0665bb5cdf295d7aaaaa3e50eb2e44b8720e55097cc675af4dc8ec45acf9da39feb3eae1405d5
doc/devkit.core/Devkit_core/Web/index.html
Module Devkit_core.Web
Source
web utilities
percent-encode (convert space into %20)
percent-encode, but convert space into plus, not %20
percent-decode (leave plus as is)
percent-decode and convert plus into space
Minimum strictness, Neturl will fail on malformed parameters in url
Source
type http_action_old = [
| `GET
| `POST_FORM of (string * string) list
| `POST of string * string
| `PUT of string * string
| `DELETE
| `CUSTOM of string * string * string
]
Source
type ('body, 'ret) http_request_ =
?ua:string ->
?timeout:int ->
?verbose:bool ->
?setup:(Curl.t -> unit) ->
?timer:Action.timer ->
?max_size:int ->
?http_1_0:bool ->
?headers:string list ->
?body:'body ->
http_action ->
string ->
'ret
Source
type 'ret http_request =
([ `Form of (string * string) list | `Raw of string * string ], 'ret)
http_request_
Source
val show_result :
?verbose:bool ->
[< `Error of Curl.curlCode | `Ok of int * string ] ->
string
Source
val simple_result :
?is_ok:(int -> bool) ->
?verbose:bool ->
[< `Error of Curl.curlCode | `Ok of int * string Ok ] ->
[> `Error of string | `Ok of string ]
Source
val http_query :
(string * string, [> `Error of string | `Ok of string ])
Http_blocking.request_
Source
val http_submit :
?ua:string ->
?timeout:int ->
?verbose:bool ->
?setup:(Curl.t -> unit) ->
?timer:Action.timer ->
?http_1_0:bool ->
?headers:string list ->
?action:http_action ->
string ->
(string * string) list ->
[> `Error of string | `Ok of string ] Http_blocking.IO.t
Source
val http_query_lwt :
(string * string, [> `Error of string | `Ok of string ]) Http_lwt.request_
Source
val http_submit_lwt :
?ua:string ->
?timeout:int ->
?verbose:bool ->
?setup:(Curl.t -> unit) ->
?timer:Action.timer ->
?http_1_0:bool ->
?headers:string list ->
?action:http_action ->
string ->
(string * string) list ->
[> `Error of string | `Ok of string ] Http_lwt.IO.t
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>