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

separate image_content from image_info

Browse source
This commit is contained in:
Swrup 2022-02-18 19:40:19 +01:00
parent c18825985f
commit 0cbaf29676
3 changed files with 69 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/permap.ml
View file

@ -152,7 +152,7 @@ let newthread_post request =
| [] -> Babillard.make_op ~comment ~lat ~lng ~subject ~tags nick
| _ :: _ :: _ -> Error "More than one image"
| [ (image_name, image_content) ] ->
let image = (image_name, image_content, alt) in
let image = ((image_name, alt), image_content) in
Babillard.make_op ~comment ~image ~lat ~lng ~subject ~tags nick
in
match res with
@ -200,7 +200,7 @@ let reply_post request =
match file with
| [] -> Babillard.make_reply ~comment ~tags ~parent_id nick
| [ (image_name, image_content) ] ->
let image = (image_name, image_content, alt) in
let image = ((image_name, alt), image_content) in
Babillard.make_reply ~comment ~image ~tags ~parent_id nick
| _ :: _ :: _ -> Error "More than one image"
in
@ -247,6 +247,6 @@ let () =
; Dream.post "/new_thread" newthread_post
; Dream.get "/:thread_id" thread_get
; Dream.post "/:thread_id" reply_post
; Dream.get "/post_pic/:post_id" post_image
; Dream.get "/img/:post_id" post_image
]
@@ Dream.not_found