Http_async

HTTP 1.1 server for async applications.

Installation

To use the version published on opam:

opam install http_async

For the development version:

opam pin add http_async.dev git+https://github.com/anuragsoni/http_async.git

Hello World

open! Core
open! Async
open Http_async
let () =
  Command_unix.run
    (Server.run_command ~summary:"Hello world HTTP Server" (fun addr (request, _body) ->
       Log.Global.info
         "(%s): %s"
         (Socket.Address.Inet.to_string addr)
         (Request.path request);
       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 _addr (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)