open Tyxml.Html

let f _request =
  let page_title = "Pellest is the best game ever!" in
  let about = div [ txt App.about ] in
  let link_to_register =
    div [ a ~a:[ a_href "/register" ] [ txt "Register" ] ]
  in
  let link_to_login = div [ a ~a:[ a_href "/login" ] [ txt "Login" ] ] in
  let page = div [ about; link_to_login; link_to_register ] in
  Template.render ~page_title ~scripts:[] page