b

src/home.ml

@@ -0,0 +1,11 @@
+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