diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-13 02:34:42 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-13 02:44:17 +0200 |
commit | e2b2b0654427d0a575a0c49ac69db07d5674417b (patch) | |
tree | 6484697786e33fbe1633e0ac4ec48792909a4f61 /src/scm | |
parent | c9999181097781b0044eb0cad0677bc83fd1ca6a (diff) |
web-i18n: fix locale detection0.5.3
Diffstat (limited to 'src/scm')
-rw-r--r-- | src/scm/webid-oidc/web-i18n.scm | 6 |
1 files 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 <> #\-) |