package sihl
Source file template_core.ml
1 2 3 4 5 6 7 8 9 10 11 12 13module Context = struct type t = { csrf : string } let create () = { csrf = "TODO" } let csrf ctx = ctx.csrf end module Document = struct type t = Tyxml_html.doc end let render page = Caml.Format.asprintf "%a" (Tyxml.Html.pp ()) page let context = Context.create