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

get display to work

Browse source
This commit is contained in:
zapashcanon 2022-12-06 02:31:33 +01:00
parent 1736a4c905
commit b504b1a69d
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
9 changed files with 135 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/user.ml
View file

@ -158,6 +158,8 @@ let list () =
)
users )
let get_nick_unsafe request = Option.get @@ Dream.session "nick" request
let is_logged_in request = Option.is_some @@ Dream.session "nick" request
let profile request =
@ -214,7 +216,7 @@ let public_profile user_id =
in
Ok user_info
let asserd_logged request =
let assert_logged request =
if is_logged_in request then Ok ()
else Error (`Forbidden, "you should be logged in")