swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

+ middlewares

Browse source
This commit is contained in:
Swrup 2025-09-13 17:57:29 +02:00
parent e872f52e97
commit abec80c2e1
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/mte.ml
View file

@ -1,8 +1,8 @@
let terms req _server _ = let terms req _server _env =
Vif.Response.with_file ~compression:`DEFLATE req Vif.Response.with_file ~compression:`DEFLATE req
Fpath.(v "assets" / "terms.html") Fpath.(v "assets" / "terms.html")
let privacy req _server _ = let privacy req _server _env =
Vif.Response.with_file ~compression:`DEFLATE req Vif.Response.with_file ~compression:`DEFLATE req
Fpath.(v "assets" / "privacy.html") Fpath.(v "assets" / "privacy.html")
@ -15,4 +15,8 @@ let routes =
; get (rel / "privacy" /?? nil) --> privacy ; 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