package nomad

  1. Overview
  2. Docs

Source file nomad.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Adapter = Adapter
module Config = Config
module Handler = Handler
module Protocol = Protocol
module Request = Request

let start_link ?acceptors ?transport ?config ~port ~handler () =
  Atacama.start_link ~port ?acceptors ?transport
    (module Connection_handler)
    (Connection_handler.make ~handler ?config ())

let trail tr conn req =
  match Trail.handler (module Adapter) tr conn req with
  | `upgrade upgrade -> Handler.Upgrade upgrade
  | `close -> Handler.Close conn