2022-12-04 22:42:55 +01:00
|
|
|
open Tyxml.Html
|
|
|
|
|
|
2022-12-06 00:12:14 +01:00
|
|
|
let get _request =
|
|
|
|
|
let title = "Pellest is the best game ever!" in
|
2022-12-04 22:42:55 +01:00
|
|
|
let about = div [ txt App.about ] in
|
2022-12-06 00:12:14 +01:00
|
|
|
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
|
