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

add user profile page

Browse source
This commit is contained in:
pena 2021-11-07 01:42:18 +01:00 • committed by Swrup
parent 4485293ddd
commit 075862185b
2 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/permap.ml
View file

@ -57,7 +57,9 @@ let login_post request =
render_unsafe (Login.f ~nick ~password request)
| _ -> assert false
let user request = render_unsafe (User.list request)
let user _request = render_unsafe (User.list ())
let user_profile request = render_unsafe (User.profile request)
let () =
Dream.run ~interface:"0.0.0.0"
@ -70,5 +72,6 @@ let () =
; Dream.get "/login" login_get
; Dream.post "/login" login_post
; Dream.get "/user" user
; Dream.get "/user/:user" user_profile
]
@@ Dream.not_found