+ middlewares

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