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

big fix

Browse source
This commit is contained in:
Swrup 2022-02-18 01:37:25 +01:00
parent be599322da
commit a3150b9750
8 changed files with 132 additions and 143 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/babillard.ml
View file

@ -176,9 +176,9 @@ module Q = struct
Caqti_request.find Caqti_type.string Caqti_type.int
"SELECT COUNT(post_id) FROM threads WHERE thread_id=?;"
let is_thread =
Caqti_request.find Caqti_type.string Caqti_type.bool
"IF EXISTS (SELECT thread_id FROM threads WHERE thread_id=? LIMIT 1);"
let get_thread =
Caqti_request.find Caqti_type.string Caqti_type.string
"SELECT thread_id FROM threads WHERE thread_id=? LIMIT 1;"
let get_post_subject =
Caqti_request.find_opt Caqti_type.string Caqti_type.string
@ -213,7 +213,7 @@ let () =
List.exists Result.is_error
(List.map (fun query -> Db.exec query ()) tables)
then
Dream.warning (fun log -> log "can't create table")
Dream.error (fun log -> log "can't create table")
let parse_image image =
match image with