swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

remove useless /thread_view ; fix some 404 errors

Browse source
This commit is contained in:
Swrup 2022-02-19 18:17:03 +01:00
parent 3d6cc4ad4a
commit ff688a0759
3 changed files with 49 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/babillard.ml
View file

@ -182,6 +182,10 @@ module Q = struct
Caqti_request.find Caqti_type.string Caqti_type.string
"SELECT thread_id FROM threads WHERE thread_id=? LIMIT 1;"
let get_is_post =
Caqti_request.find Caqti_type.string Caqti_type.string
"SELECT post_id FROM post_user WHERE post_id=? LIMIT 1;"
let get_post_thread =
Caqti_request.find Caqti_type.string Caqti_type.string
"SELECT thread_id FROM threads WHERE post_id=? LIMIT 1;"
@ -444,3 +448,10 @@ let get_post id =
{ id; parent_id; date; nick; comment; image_info; tags; replies; citations }
in
Ok reply
let thread_exists id =
match Db.find Q.get_is_thread id with Error _ -> false | Ok _ -> true
(* true if post is an op too *)
let post_exists id =
match Db.find Q.get_is_post id with Error _ -> false | Ok _ -> true