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

emojid: use trie

Browse source
This commit is contained in:
Swrup 2022-12-31 06:01:03 +01:00
parent 4dd63360a2
commit 9c769ae947
4 changed files with 71 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/babillard.ml
View file

@ -295,7 +295,7 @@ let build_reply ~comment ~image_info ~tag_list ?parent_id user_id =
let date = Unix.time () in
let comment, citations = parse_comment comment in
let* nick = User.get_nick user_id in
let* emojid = Emojid.make_emojid id in
let* emojid = Emojid.make id in
let reply =
{ id
; emojid
@ -356,7 +356,7 @@ let make_post ~comment ?image_input ~tags ~op_or_reply_data user_id =
let post_exist id = Result.is_ok (Q.get_is_post id)
let get_post id =
let* emojid = Emojid.Q.get_emojid id in
let* emojid = Emojid.get id in
let* parent_id = Q.get_post_thread id in
let* user_id = Q.get_post_user_id id in
let* nick = User.get_nick user_id in