9 lines
239 B
OCaml
9 lines
239 B
OCaml
|
open Htmlit
|
||
|
|
|
||
|
|
let get request =
|
||
|
|
let title = "Home" in
|
||
|
|
let h1 = El.h1 [ El.txt title ] in
|
||
|
|
let txt = El.txt "Welcome to my home page" in
|
||
|
|
let doc = Template.render request ~styles:[] ~title [ h1; txt ] in
|
||
|
|
Ok (Drame.Content.Html doc)
|