fix parse_comment: insert <br> in comment, insert quote, fix error in sort_uniq

This commit is contained in:
Swrup 2022-01-12 20:27:10 +01:00
parent 8332a16209
commit 7191a5690d
3 changed files with 56 additions and 19 deletions

View file

@ -10,7 +10,7 @@ let insert_quote post_id =
let content = Jv.get comment_textarea "value" in
let new_content =
Jv.call content "concat"
[| Jv.of_string ">>"; post_id; Jv.of_string " " |]
[| Jv.of_string " >>"; post_id; Jv.of_string " " |]
in
ignore @@ Jv.set comment_textarea "value" new_content;
Jv.undefined