Source file ezServer.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# 1 "src/server/default/lwt/ezServer.dummy.ml"
(**************************************************************************)
(*                                                                        *)
(*                 Copyright 2018-2023 OCamlPro                           *)
(*                                                                        *)
(*  All rights reserved. This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1, with the special       *)
(*  exception on linking described in the file LICENSE.                   *)
(*                                                                        *)
(**************************************************************************)

let server ?catch:_ ?allow_origin:_ ?footer:_ ?addr:_ _ =
  Format.eprintf
    "Cohttp, Httpaf or Httpun server implementation not availble\n\
     Try: `opam install cohttp-lwt-unix`\n\
     `opam install httpaf-lwt-unix`\n\
     or `opam install httpun-lwt-unix`@.";
  Lwt.return_unit

let shutdown () = Lwt.return_unit

let set_debug () = ()