diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-24 08:39:21 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-24 08:39:21 +0100 |
| commit | bd99695556515759158ef2af17d4222951027e27 (patch) | |
| tree | 0c785bf1b45f3914da860a40eb818efe462401f8 | |
| parent | a88d154823de3bb7ea8c62e84b1294dfba51ecec (diff) | |
| download | bffe-bd99695556515759158ef2af17d4222951027e27.tar bffe-bd99695556515759158ef2af17d4222951027e27.tar.gz | |
Fix use of most-appropriate-mime-type
| -rw-r--r-- | bffe/server.scm | 8 |
1 files 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))) |