package http_async
Async library for HTTP/1.1 servers
Install
Dune Dependency
Authors
Maintainers
Sources
http_async-0.1.0.tbz
sha256=aeeb19254b4d8e1ada972cf88e9e0a287fb1be179cebe86408616c4a19a5a98d
sha512=35ab68ba65747c9dfc237b12a6a36df1c8a2347d1196531e7a65d399b817cdb09f03db9a13f1b9b6d2705f0a19ffde6dcd69144fb9ebae7cbdd686f4866057b1
Description
http_async implements an efficient HTTP/1.1 server. It uses the shuttle library for network IO, and provides an easy-to-use interface for writing async http services while minimal overhead on top of the user provided http handler.
README
Http_async
HTTP 1.1 server for async applications.
Getting Started
This library isn't published to the opam repository yet so it requires pinning to the development version of dependencies.
opam pin add -n http_async.dev git+https://github.com/anuragsoni/http_async.git
opam install http_async
Hello World
open! Core
open! Async
open Http_async
let () =
Command_unix.run
(Server.run_command ~summary:"Hello world HTTP Server" (fun (_request, _body) ->
return (Response.create `Ok, Body.Writer.string "Hello World")))
;;
Routing?
Http_async doesn't ship with a router. There are multiple routing libraries available on opam and using Http_async
with them should be fairly easy. As an example, integration with ocaml-dispatch can be done as so:
open! Core
open! Async
open Http_async
let routes =
let open Dispatch in
DSL.create
[ ( "/hello/:name"
, fun params _rest ->
let name = List.Assoc.find_exn params ~equal:String.equal "name" in
return (Response.create `Ok, Body.Writer.string (sprintf "Hello, %s" name)) )
; ("/", fun _params _rest -> Response.create `Ok, Body.Writer.string "Hello World")
]
;;
let service (request, body) =
let path = Request.path request in
match Dispatch.dispatch routes path with
| Some response -> response
| None -> return (Response.create `Not_found, Body.Writer.string "Route not found")
;;
let () = Command_unix.run (Server.run_command ~summary:"Hello world HTTP Server" service)
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page