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 ()