diff --git a/src/mte.ml b/src/mte.ml index d169c878..971a9997 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -1,8 +1,8 @@ -let terms req _server _ = +let terms req _server _env = Vif.Response.with_file ~compression:`DEFLATE req Fpath.(v "assets" / "terms.html") -let privacy req _server _ = +let privacy req _server _env = Vif.Response.with_file ~compression:`DEFLATE req Fpath.(v "assets" / "privacy.html") @@ -15,4 +15,8 @@ let routes = ; get (rel / "privacy" /?? nil) --> privacy ] -let () = Miou_unix.run @@ fun () -> Vif.run routes () +let () = + Miou_unix.run @@ fun () -> + let env = () in + let middlewares = Vif.Middlewares.[] in + Vif.run ~middlewares routes env