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:
pena 2022-12-06 02:31:33 +01:00 • committed by Swrup
parent 238e6fba75
commit 00c9c587c7
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")