Add MLI files

render/render.ml

@@ -93,7 +93,7 @@ module Render = struct
           |> render_page
           |> Dream.html
 
-  let render_blog_index _ =
+  let render_blog_index (_ : Dream.request) =
     let buff = Buffer.create 512 in
     let () = Buffer.add_string buff "<h3>Blog</h3>" in
     let posts_t = Database.get_all_blog_posts () in

render/render.mli

@@ -0,0 +1,14 @@
+open Database
+  
+module Render :
+  sig
+    val not_found_template : string
+    val error_template : string
+    val header_template : string
+    val footer_template : string
+    val render_page : string -> string
+    val generate_link : BlogPost.t -> string
+    val handle_error : [< Caqti_error.t ] -> Dream.response Lwt.t
+    val render_blog_post : Dream.request -> Dream.response Lwt.t
+    val render_blog_index : Dream.request -> Dream.response Lwt.t
+  end