From 6a8fab1bf60d948cf28e624dd0fb363a11d281cd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 30 Apr 2023 19:32:07 +0200 Subject: Figured out passing the accept header Solution, when Guile says "Bad value for header", just add more parens. --- bffe/server.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'bffe') 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))))) -- cgit v1.2.3