From f04ced9332a8fff92fb5fb8cc452dc7858ceb3e5 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Fri, 1 Oct 2021 11:05:11 +0200
Subject: Client: set the Accept-Language header

---
 src/scm/webid-oidc/client.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/scm/webid-oidc/client.scm')

diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm
index 9200332..246731e 100644
--- a/src/scm/webid-oidc/client.scm
+++ b/src/scm/webid-oidc/client.scm
@@ -130,6 +130,8 @@
       (let ((all-headers
              `((dpop . ,dpop-proof)
                (authorization . (dpop . ,access-token))
+               (accept-language . ((2 . ,(G_ "accept-language-header|en-us"))
+                                   (1 . "en-us")))
                ,@headers)))
         (receive (response body)
             (apply (p:anonymous-http-request) uri
-- 
cgit v1.2.3