aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-04-30 19:21:37 +0200
committerChristopher Baines <mail@cbaines.net>2023-04-30 19:21:37 +0200
commit294b9d49e53ab22ac578c2548f799e16f74155de (patch)
tree84d7aea4c9119d15a005af0cb358829664ade85a
parent86df0679612d2b85350ce8def48e319579f7f845 (diff)
downloadbffe-294b9d49e53ab22ac578c2548f799e16f74155de.tar
bffe-294b9d49e53ab22ac578c2548f799e16f74155de.tar.gz
Revert "Add .json suffixes to the agent and build requests"
This doesn't work, if only I could work out how to get Guile to pass the Accept header :( This reverts commit 86df0679612d2b85350ce8def48e319579f7f845.
-rw-r--r--bffe/server.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/bffe/server.scm b/bffe/server.scm
index 2488fef..4c24559 100644
--- a/bffe/server.scm
+++ b/bffe/server.scm
@@ -438,7 +438,9 @@
body
(http-get
(string->uri
- (string-append event-source "/build/" uuid ".json")))))
+ (string-append event-source "/build/" uuid
+ ;; ".json"
+ )))))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
@@ -456,7 +458,7 @@
body
(http-get
(string->uri
- (string-append event-source "/agent/" agent-id ".json")))))
+ (string-append event-source "/agent/" agent-id)))))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)