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

fix

Browse source
This commit is contained in:
Swrup 2022-02-27 19:58:32 +01:00
parent bff747b4ca
commit 048f77098b
5 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/permap.ml
View file

@ -291,8 +291,7 @@ let babillard_post request =
let thread_feed_get request =
let thread_id = Dream.param request "thread_id" in
if Babillard.thread_exist thread_id then
let feed = Pp_babillard.feed thread_id in
match feed with
match Pp_babillard.feed thread_id with
| Error e -> render_unsafe e request
| Ok feed ->
Dream.respond ~headers:[ ("Content-Type", "application/atom+xml") ] feed