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 d7dc4a5dd6
commit 07c428c473
3 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/user.ml
View file

@ -80,10 +80,10 @@ module Q = struct
end
let () =
let tables = [ Q.create_user_table; Q.create_banished_table ] in
let tables = [| Q.create_user_table; Q.create_banished_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 exist nick = Result.is_ok (Db.find Q.get_user nick)