test out dream templates

db/database.mli

@@ -37,41 +37,38 @@ module Q :
 
 module Db : Caqti_lwt.CONNECTION
 
-module Database :
-  sig
-    val create_blog_post_table :
-      unit -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
-    
-    val create_blog_post :
-      string ->
-      string ->
-      string ->
-      string -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
-    
-    val update_blog_post_content :
-      string ->
-      string -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
-    
-    val update_blog_post_title :
-      string ->
-      string -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
-    
-    val get_blog_post_by_slug :
-      string ->
-      (BlogPost.t option, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
-    
-    val get_all_blog_posts :
-      unit ->
-      (BlogPost.t list, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
-    
-    val iter_blog_posts :
-      (BlogPost.t ->
-       (unit, [> Caqti_error.call_or_retrieve ] as 'a) Stdlib.result Lwt.t) ->
-      (unit, 'a) Stdlib.result Lwt.t
-    
-    val ( >>=? ) :
-      ('a, 'b) Stdlib.result Lwt.t ->
-      ('a -> ('c, 'b) Stdlib.result Lwt.t) -> ('c, 'b) Stdlib.result Lwt.t
-    
-    val report_error : (unit, [< Caqti_error.t ]) Stdlib.result -> unit Lwt.t
-  end
+val create_blog_post_table :
+  unit -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
+
+val create_blog_post :
+  string ->
+  string ->
+  string ->
+  string -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
+
+val update_blog_post_content :
+  string ->
+  string -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
+
+val update_blog_post_title :
+  string ->
+  string -> (unit, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
+
+val get_blog_post_by_slug :
+  string ->
+  (BlogPost.t option, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
+
+val get_all_blog_posts :
+  unit ->
+  (BlogPost.t list, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
+
+val iter_blog_posts :
+  (BlogPost.t ->
+    (unit, [> Caqti_error.call_or_retrieve ] as 'a) Stdlib.result Lwt.t) ->
+  (unit, 'a) Stdlib.result Lwt.t
+
+val ( >>=? ) :
+  ('a, 'b) Stdlib.result Lwt.t ->
+  ('a -> ('c, 'b) Stdlib.result Lwt.t) -> ('c, 'b) Stdlib.result Lwt.t
+
+val report_error : (unit, [< Caqti_error.t ]) Stdlib.result -> unit Lwt.t