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-28 18:35:16 +01:00
parent 595489978d
commit cb12b4a2a8
3 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/babillard.ml
View file

@ -225,22 +225,22 @@ end
let () =
let tables =
[ Q.create_post_user_table
; Q.create_thread_info_table
; Q.create_thread_post_table
; Q.create_post_replies_table
; Q.create_post_citations_table
; Q.create_post_date_table
; Q.create_post_comment_table
; Q.create_image_info_table
; Q.create_image_content_table
; Q.create_post_tags_table
; Q.create_report_table
]
[| Q.create_post_user_table
; Q.create_thread_info_table
; Q.create_thread_post_table
; Q.create_post_replies_table
; Q.create_post_citations_table
; Q.create_post_date_table
; Q.create_post_comment_table
; Q.create_image_info_table
; Q.create_image_content_table
; Q.create_post_tags_table
; Q.create_report_table
|]
in
if
List.exists Result.is_error
(List.map (fun query -> Db.exec query ()) tables)
Array.exists Result.is_error
(Array.map (fun query -> Db.exec query ()) tables)
then Dream.error (fun log -> log "can't create table")
let parse_image image =