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

remove useless /thread_view ; fix some 404 errors

Browse source
This commit is contained in:
Swrup 2022-02-19 18:17:03 +01:00
parent a255086a16
commit 8df8cef749
3 changed files with 49 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/user.ml
View file

@ -118,8 +118,7 @@ let list () =
)
users )
let public_profile request =
let nick = Dream.param request "user" in
let public_profile nick =
let^? nick, _password, _email, (bio, _) = Db.find_opt Q.get_user nick in
let user_info =
Format.sprintf
@ -169,3 +168,6 @@ let upload_avatar files nick =
let^ () = Db.exec Q.upload_avatar (content, nick) in
Ok ()
| _files -> Error "More than one file provided"
let exists nick =
match Db.find_opt Q.get_user nick with Error _ -> false | Ok _ -> true