19 lines
473 B
OCaml
19 lines
473 B
OCaml
|
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 ()
|