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

clean code

Browse source
This commit is contained in:
zapashcanon 2022-12-06 01:00:39 +01:00
parent eda6a2d001
commit 1736a4c905
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
10 changed files with 46 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/user.ml
View file

@ -158,6 +158,8 @@ let list () =
)
users )
let is_logged_in request = Option.is_some @@ Dream.session "nick" request
let profile request =
match Dream.session "nick" request with
| None -> "not logged in"
@ -211,3 +213,11 @@ let public_profile user_id =
user.nick user.nick
in
Ok user_info
let asserd_logged request =
if is_logged_in request then Ok ()
else Error (`Forbidden, "you should be logged in")
let assert_not_logged request =
if is_logged_in request then Error (`Forbidden, "you shoudn't be logged in")
else Ok ()