module BlogPost = Database.BlogPost module type SimpleRender = sig val render : unit -> string end val header_template : string val footer_template : string val replace_sequence : string -> string -> string -> string val html_unescape : string -> string val not_found_template : string val error_template : string val render_page : string -> string val generate_link : BlogPost.t -> string val generate_rss_item : BlogPost.t -> string val handle_error : [< Caqti_error.t ] -> Dream.response Lwt.t val handle_not_found : unit -> Dream.response Lwt.t val render_blog_post : Dream.request -> Dream.response Lwt.t val render_blog_index : Dream.request -> Dream.response Lwt.t val render_rss_feed : Dream.request -> Dream.response Lwt.t val render_simple : (module SimpleRender) -> Dream.response Lwt.t val render_index : unit -> Dream.response Lwt.t