You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

17 lines
441 B

open Tyxml.Html
let f request =
let page_title = "Droloc" in
let about = div [ txt App.about ] in
let make_room =
let make_room_button =
button ~a:[ a_id "make_room_button" ] [ txt "Make Room" ]
in
div
[ form
~a:[ a_action "/"; a_method `Post ]
[ Util.csrf_tag request; make_room_button ]
]
in
let page = div [ about; make_room ] in
Template.render ~page_title ~scripts:[] page