big squish

src/db_post.mli

@@ -0,0 +1,28 @@
+open Err
+open Types
+
+val find_post : post_id -> post option result
+
+val find_thread : post_id -> thread option result
+
+val find_thread_w_reply : post_id -> Thread_w_reply.t option result
+
+val get_catalog : unit -> thread list result
+
+val delete : post_id -> unit result
+
+val add_post :
+     thread_id:post_id
+  -> user:user
+  -> image:img option
+  -> comment:comment
+  -> post result
+
+val add_thread :
+     subject:v_string
+  -> lat:float
+  -> lng:float
+  -> user:user
+  -> image:img option
+  -> comment:comment
+  -> Thread_w_reply.t result