12 lines
401 B
OCaml
12 lines
401 B
OCaml
|
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
|