package sihl

  1. Overview
  2. Docs
package sihl
Legend:
Library
Module
Module type
Parameter
Class
Class type

The web server service contains a HTTP server implementation.

Service Installation

Use the provided Sihl.Web.Server.MakeOpium to create a web server service that uses https://github.com/rgrinberg/opium/. You need to inject a Sihl.Log.Service.Sig.SERVICE and a Sihl.Cmd.Service.Sig.SERVICE. Use the default implementation provided by Sihl:

module Log = Sihl.Log.Service.Make ()
module Cmd = Sihl.Cmd.Service.Make ()
module WebServer = Sihl.Web.Server.Service.Make (Cmd)
module Service : sig ... end

Usage

let hello_page =
  Sihl.Web.Route.get "/hello/" (fun _ ->
      Sihl.Web.Res.(html |> set_body "Hello!") |> Lwt.return)

let hello_api =
  Sihl.Web.Route.get "/hello/" (fun _ ->
      Sihl.Web.Res.(json |> set_body {|{"msg":"Hello!"}|}) |> Lwt.return)

let endpoints = [ ("/page", [ hello_page ], []); ("/api", [ hello_api ], []) ]

WebServer.register_endpoints endpoints;
let* () = WebServer.start_server ctx in
...
type routes = Http.Route.t list
type middleware_stack = Middleware.stack
type endpoint = string * Http.Route.t list * Middleware.stack