From abec80c2e136f1b055c20c1969dd6b85ab7f7642 Mon Sep 17 00:00:00 2001 From: Swrup Date: Sat, 13 Sep 2025 17:57:29 +0200 Subject: [PATCH] + middlewares --- src/mte.ml | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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