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

/:thread_id -> /thread/:thread_id, delete old /post_pic route

Browse source
This commit is contained in:
Swrup 2022-02-19 17:46:01 +01:00
parent e1606006ad
commit 3d6cc4ad4a
3 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/permap.ml
View file

@ -157,7 +157,7 @@ let newthread_post request =
in
match res with
| Ok thread_id ->
let adress = Format.asprintf "/%s" thread_id in
let adress = Format.asprintf "/thread/%s" thread_id in
Dream.respond ~status:`See_Other
~headers:[ ("Location", adress) ]
"Your thread was posted!"
@ -206,7 +206,7 @@ let reply_post request =
in
match res with
| Ok post_id ->
let adress = Format.sprintf "/%s#%s" parent_id post_id in
let adress = Format.sprintf "/thread/%s#%s" parent_id post_id in
Dream.respond ~status:`See_Other
~headers:[ ("Location", adress) ]
"Your reply was posted!"
@ -238,12 +238,15 @@ let routes =
; get_ "/user" user
; get_ "/user/:user" user_profile
; get_ "/user/:user/avatar" avatar_image
; get_ "/thread/:thread_id" thread_get
; post "/thread/:thread_id" reply_post
]
@ ( if App.open_registration then
[ get_ "/register" register_get; post "/register" register_post ]
else [] )
@ (* TODO: rename these two routes *)
[ get_ "/:thread_id" thread_get; post "/:thread_id" reply_post ]
@
if App.open_registration then
[ get_ "/register" register_get; post "/register" register_post ]
else []
let () =
let logger = if App.log then Dream.logger else Fun.id in