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

init

Browse source
This commit is contained in:
Swrup 2025-09-13 15:56:19 +02:00
commit e872f52e97
8 changed files with 116 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/mte.ml Normal file
View file

@ -0,0 +1,18 @@
let terms req _server _ =
Vif.Response.with_file ~compression:`DEFLATE req
Fpath.(v "assets" / "terms.html")
let privacy req _server _ =
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 () -> Vif.run routes ()