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

add bio in user page, there is a problem with matching on the SELECT btw, idk wtf is the type

Browse source
This commit is contained in:
Swrup 2021-11-07 18:52:31 +01:00
parent 152cefa9e4
commit 302525f2ab
4 changed files with 86 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/permap.ml
View file

@ -64,7 +64,12 @@ let logout request =
let content = "Logged out !" in
render_unsafe content request
let profile request = render_unsafe (User.profile request) request
let profile_get request = render_unsafe (User_profile.f request) request
let profile_post request =
match%lwt Dream.form request with
| `Ok [ ("bio", bio) ] -> render_unsafe (User_profile.f ~bio request) request
| _ -> assert false
let () =
Dream.run @@ Dream.logger @@ Dream.memory_sessions
@ -78,6 +83,7 @@ let () =
; Dream.get "/user" user
; Dream.get "/user/:user" user_profile
; Dream.get "/logout" logout
; Dream.get "/profile" profile
; Dream.get "/profile" profile_get
; Dream.post "/profile" profile_post
]
@@ Dream.not_found