mte/src/mte.ml

let terms req _server _env =
  Vif.Response.with_file ~compression:`DEFLATE req
    Fpath.(v "assets" / "terms.html")

let privacy req _server _env =
  Vif.Response.with_file ~compression:`DEFLATE req
    Fpath.(v "assets" / "privacy.html")

let routes =
  let open Vif.Uri in
  let open Vif.Route in
  (*let open Vif.Type in*)
  [
    get (rel / "terms" /?? nil) --> terms
  ; get (rel / "privacy" /?? nil) --> privacy
  ]

let () =
  Miou_unix.run @@ fun () ->
  let env = () in
  let middlewares = Vif.Middlewares.[] in
  Vif.run ~middlewares routes env