29 lines
541 B
OCaml
29 lines
541 B
OCaml
|
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
|