Source file template.ml

1
2
3
4
5
6
7
type t = { render : renderer }
and renderer = page_data -> string
and page_data = { app : string }

let make render = { render }
let page_app p = p.app
let render page_data t = t.render page_data