package sihl

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file template_core.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open Base

module 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
OCaml

Innovation. Community. Security.