open Tyxml.Html

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