Usage with Routes library

If you want a nice performant router you can use the Routes library from anuragsoni.

First step is to create handlers. A handler is just a function that returns a Response.t.

Note: We recommend that you include request in all handler signatures even if they are not used. That will make it easier to handle things like databases in the future.

Reason

OCaml

/* Just respond with "ok" on every request */
let root_handler = (_request) => Morph.Response.ok(Morph.Response.empty);

/* Return a greeting with the name */
let greet_handler = (greeting, _request) => {
  Morph.Response.text(greeting, Morph.Response.empty);
};

(* Just respond with "ok" on every request *)
let root_handler _request = Morph.Response.ok Morph.Response.empty

(* Return a greeting with the name *)
let greet_handler greeting _request = Morph.Response.text greeting Morph.Response.empty

Then you create a route definition. This definition will use the root_handler for a empty route. If the request is /greet/:name it will match the last part and pass it as a string to the greet_handler.

Reason

OCaml

let routes =
  Routes.(
    Routes.Infix.(
      with_method([
        (`GET, root_handler <$ s("")),
        (`GET, greet_handler <$> s("greet") *> str),
      ])
    )
  );

let routes =
  let open Routes in
    let open Routes.Infix in
      with_method [
        (`GET, root_handler <$ s "");
        (`GET, greet_handler <$> s "greet" *> str)
      ]

Lastly you create a routes callback and start the server. In this case we pass in the request even if they are not used.

Reason

OCaml

let handler = (request: Morph.Request.t) =>
  Routes.match_with_method(~target=request.target, ~meth=request.meth, routes)
  |> (
    fun
    | Some(res) => res(request)
    | None => Morph.Response.not_found(Morph.Response.empty)
  );

let server = Morph_server_http.make();
Morph.start(~servers=[server], handler) |> Lwt_main.run;

let () =
  let handler (request: Morph.Request.t) =
    (Routes.match_with_method ~target:request.target ~meth:request.meth routes)
    |> (function
      | Some res -> res request
      | None  -> Morph.Response.not_found Morph.Response.empty) in
  let server = Morph_server_http.make () in
  Morph.start ~servers:[server] handler
  |> Lwt_main.run