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

change post type

Browse source
This commit is contained in:
Swrup 2022-01-29 09:23:57 +01:00
parent d63ec44fba
commit bfd1c2ba7f
2 changed files with 83 additions and 108 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/permap.ml
View file

@ -143,7 +143,7 @@ let avatar_image request =
let post_image request =
let post_id = Dream.param "post_id" request in
let image = Babillard.get_post_image post_id in
let image = Babillard.get_post_image_content post_id in
match image with
| Ok image -> Dream.respond ~headers:[ ("Content-Type", "image") ] image
| Error _ -> Dream.empty `Not_Found