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

small fix

Browse source
This commit is contained in:
Swrup 2022-02-20 01:58:33 +01:00
parent ff688a0759
commit 7966667050
3 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/babillard.ml
View file

@ -449,9 +449,7 @@ let get_post id =
in
Ok reply
let thread_exists id =
match Db.find Q.get_is_thread id with Error _ -> false | Ok _ -> true
let thread_exists id = Result.is_ok (Db.find Q.get_is_thread id)
(* true if post is an op too *)
let post_exists id =
match Db.find Q.get_is_post id with Error _ -> false | Ok _ -> true
let post_exists id = Result.is_ok (Db.find Q.get_is_post id)