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