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

add display nick

Browse source
This commit is contained in:
Swrup 2022-03-06 19:23:52 +01:00
parent 07c428c473
commit 987b989ad2
6 changed files with 105 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/permap.ml
View file

@ -186,10 +186,12 @@ let profile_get request =
match Dream.session "nick" request with
| None -> render_unsafe "Not logged in" request
| Some nick ->
if User.exist nick then
let bio = match User.get_bio nick with Ok bio -> bio | Error e -> e in
render_unsafe (User_profile.f nick bio request) request
else Dream.respond ~status:`Not_Found "User does not exists"
let res =
match User.get_user nick with
| Error e -> e
| Ok user -> User_profile.f user request
in
render_unsafe res request
let profile_post request =
match Dream.session "nick" request with
@ -203,6 +205,13 @@ let profile_post request =
~headers:[ ("Location", "/profile") ]
"Your bio was updated!"
| Error e -> render_unsafe e request )
| `Ok [ ("display-nick", display_nick) ] -> (
match User.update_display_nick display_nick nick with
| Ok () ->
Dream.respond ~status:`See_Other
~headers:[ ("Location", "/profile") ]
"Your display nick was updated!"
| Error e -> render_unsafe e request )
| `Ok _ | `Many_tokens _ | `Missing_token _ | `Invalid_token _
| `Wrong_session _ | `Expired _ | `Wrong_content_type -> (
match%lwt Dream.multipart request with