From bd99695556515759158ef2af17d4222951027e27 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 24 Jul 2023 08:39:21 +0100 Subject: Fix use of most-appropriate-mime-type --- bffe/server.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bffe/server.scm b/bffe/server.scm index 112ae17..1bbbe67 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -507,8 +507,8 @@ ;; ".json" ))))) (case (most-appropriate-mime-type - '(application/json text/html) - mime-types) + mime-types + '(application/json text/html)) ((application/json) (render-json (json->scm body))) @@ -524,8 +524,8 @@ (string-append event-source "/agent/" agent-id)) #:headers '((accept . ((application/json))))))) (case (most-appropriate-mime-type - '(application/json text/html) - mime-types) + mime-types + '(application/json text/html)) ((application/json) (render-json (json->scm body))) -- cgit v1.2.3