From e2b2b0654427d0a575a0c49ac69db07d5674417b Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Fri, 13 Aug 2021 02:34:42 +0200 Subject: web-i18n: fix locale detection --- src/scm/webid-oidc/web-i18n.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/scm/webid-oidc/web-i18n.scm b/src/scm/webid-oidc/web-i18n.scm index d3a773f..54d0c36 100644 --- a/src/scm/webid-oidc/web-i18n.scm +++ b/src/scm/webid-oidc/web-i18n.scm @@ -36,17 +36,17 @@ (make-mutex)) (define sort-qlist - (cute sort <> + (cute stable-sort <> (match-lambda* (((px . _) (py . _)) - (>= px py))))) + (> px py))))) (define get-preferred-language (match-lambda ((? request? (= request-accept-language (= sort-qlist - (((_ . language) _ ...))))) + ((_ . language) _ ...)))) (get-preferred-language language)) ((? string? (= (cute string-split <> #\-) -- cgit v1.2.3