Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Make server response type abstract and allow streaming in cohttp-eio #1024

Open
wants to merge 4 commits into
base: master
Choose a base branch
from

Conversation

talex5
Copy link
Contributor

@talex5 talex5 commented Feb 28, 2024

This fixes #998.

The first commit adds an abstract response type and then uses type response = Http.Response.t * Body.t in cohttp-lwt and cohttp-eio to keep the final types the same (cohttp-async already defined this type anyway and so didn't need any updates).

The second is just a few trivial changes to cohttp-eio to make the third commit diff smaller.

The third commit changes the response type in cohttp-eio to type response = writer -> unit. This allows
handlers to write the response inside the function, rather than returning a request to cohttp to write it later. That's useful because it allows e.g. streaming from an open file and then closing it afterwards.

Partial application means that code using respond_string etc will continue to work as before.

This also exposes a more polymorphic version of the respond function that accepts sub-types of Flow.source, so that callers don't need to cast the body.

/cc @mefyl

This will allow cohttp-eio to use a different type in future, which
should make streaming easier.
Makes next commit easier to read:

- Use `respond` helpers in example. Avoids it having to change.
- Remove useless `IO.t` and `>>=`.
- Move some functions later in the file, and they'll need to use
  `write`.
@mefyl
Copy link
Contributor

mefyl commented Feb 29, 2024

Looks good to me!

I would even suggest making Cohttp_eio.Server.respond's status argument default to OK, just like Cohttp.Response.make, so that one need only replace (Cohttp.Response.make (), body) with Cohttp_eio.Server.respond ~body () to adapt to this change.

We might even make body positional since it's required anyway, making the signature:

val respond :
  ?headers:Http.Header.t ->
  ?flush:bool ->
  ?status:Http.Status.t ->
  _ Eio.Flow.source ->
  response IO.t

So that the simplest form becomes Cohttp_eio.Server.respond body.

@talex5
Copy link
Contributor Author

talex5 commented Mar 5, 2024

That probably is a better API, but it's trying to implement the signatures in the shared cohttp package, so they would have to be extra functions with different names if we did that. Maybe something for a separate PR?

This changes the response type to `writer -> unit`. This allows
handlers to write the response inside the function, rather than
returning a request to cohttp to write it later. That's useful because
it allows e.g. streaming from an open file and then closing it
afterwards.

Partial application means that code using `respond_string` etc will
continue to work as before.

This also exposes a more polymorphic version of the `respond` function
that accepts sub-types of `Flow.source`, so that callers don't need to
cast the body.
CHANGES.md Outdated Show resolved Hide resolved

type t = {
conn_closed : conn -> unit;
handler : conn -> Http.Request.t -> body -> response_action IO.t;
handler : conn -> Http.Request.t -> body -> IO.ic -> IO.oc -> unit;
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

My only concern is that the change to old-style response was done to align the APIs, with this they APIs are diverging again (at least in the expectations and signatures)

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Yes, although not when using the normal response functions. So it's certainly possible to write code that works with both.

Co-authored-by: Marcello Seri <mseri@users.noreply.github.com>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

Make response type abstract
3 participants