diff options
| -rw-r--r-- | bffe/server.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index 4c24559..3df8e55 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -458,7 +458,8 @@ body (http-get (string->uri - (string-append event-source "/agent/" agent-id))))) + (string-append event-source "/agent/" agent-id)) + #:headers '((accept . ((application/json))))))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) @@ -477,7 +478,8 @@ (http-get (string->uri (string-append event-source "/agent/" agent-id - "/build-allocation-plan"))))) + "/build-allocation-plan")) + #:headers '((accept . ((application/json))))))) (render-json (json-string->scm (utf8->string body))))) |