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

add profile metadata

Browse source
This commit is contained in:
Swrup 2022-03-08 01:19:35 +01:00
parent 69677f5e1b
commit f8f4b9b110
6 changed files with 171 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/babillard.ml
View file

@ -24,14 +24,6 @@ type t =
| Op of thread_data * post
| Post of post
let unwrap_list f ids =
let l = List.map f ids in
let res = List.find_opt Result.is_error l in
match res with
| None -> Ok (List.map Result.get_ok l)
| Some (Ok _) -> assert false
| Some (Error _e as error) -> error
module Q = struct
let create_post_user_table =
Caqti_request.exec Caqti_type.unit