Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Update code base to be compatible with new async/core
- Loading branch information
Showing
22 changed files
with
152 additions
and
118 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,5 @@ | ||
open! Core | ||
open! Async | ||
open! Base | ||
open! Async_kernel | ||
open! Cohttp | ||
|
||
type t = [ | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,5 @@ | ||
open Core | ||
open Async | ||
open Base | ||
open Async_kernel | ||
module B = Cohttp.Body | ||
|
||
type t = [ | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,102 +1,99 @@ | ||
open! Core | ||
open! Async | ||
|
||
(** Send an HTTP request with an arbitrary body | ||
The request is sent as-is. *) | ||
val request : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?uri:Uri.t -> | ||
?body:Body.t -> | ||
Cohttp.Request.t -> | ||
(Cohttp.Response.t * Body.t) Deferred.t | ||
(Cohttp.Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP request with arbitrary method and a body | ||
Infers the transfer encoding *) | ||
val call : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
?chunked:bool -> | ||
?body:Body.t -> | ||
Cohttp.Code.meth -> | ||
Uri.t -> | ||
(Cohttp.Response.t * Body.t) Deferred.t | ||
(Cohttp.Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
val callv : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
Uri.t -> | ||
(Cohttp.Request.t * Body.t) Pipe.Reader.t -> | ||
(Cohttp.Response.t * Body.t) Pipe.Reader.t Deferred.t | ||
(Cohttp.Request.t * Body.t) Async_kernel.Pipe.Reader.t -> | ||
(Cohttp.Response.t * Body.t) Async_kernel.Pipe.Reader.t Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP GET request *) | ||
val get : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
Uri.t -> | ||
(Cohttp.Response.t * Body.t) Deferred.t | ||
(Cohttp.Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP HEAD request *) | ||
val head : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
Uri.t -> | ||
Cohttp.Response.t Deferred.t | ||
Cohttp.Response.t Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP DELETE request *) | ||
val delete : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
?chunked:bool -> | ||
?body:Body.t -> | ||
Uri.t -> | ||
(Cohttp.Response.t * Body.t) Deferred.t | ||
(Cohttp.Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP POST request. | ||
[chunked] encoding is off by default as not many servers support it | ||
*) | ||
val post : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
?chunked:bool -> | ||
?body:Body.t -> | ||
Uri.t -> | ||
(Cohttp.Response.t * Body.t) Deferred.t | ||
(Cohttp.Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP PUT request. | ||
[chunked] encoding is off by default as not many servers support it | ||
*) | ||
val put : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
?chunked:bool -> | ||
?body:Body.t -> | ||
Uri.t -> | ||
(Response.t * Body.t) Deferred.t | ||
(Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP PATCH request. | ||
[chunked] encoding is off by default as not many servers support it | ||
*) | ||
val patch : | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
?chunked:bool -> | ||
?body:Body.t -> | ||
Uri.t -> | ||
(Response.t * Body.t) Deferred.t | ||
(Response.t * Body.t) Async_kernel.Deferred.t | ||
|
||
(** Send an HTTP POST request in form format *) | ||
val post_form: | ||
?interrupt:unit Deferred.t -> | ||
?interrupt:unit Async_kernel.Deferred.t -> | ||
?ssl_config:Conduit_async.Ssl.config -> | ||
?headers:Cohttp.Header.t -> | ||
params:(string * string list) list -> | ||
Uri.t -> | ||
(Response.t * Body.t) Deferred.t | ||
(Response.t * Body.t) Async_kernel.Deferred.t |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.