simon/internationalisation
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

A bit more robust if things are badly wrong.

Browse source
This commit is contained in:
Simon Brooke 2017-09-11 12:08:15 +01:00
parent f53fcdb451
commit 47396aa261
2 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/scot/weft/i18n/core.clj
View file

@ -82,7 +82,8 @@
:Q-VALUE (read-string (second parse-tree))
;; default
(let [formatted-tree (with-out-str (pprint parse-tree))]
(throw (Exception. (str "Unexpected parse tree: " formatted-tree)))))))
(timbre/error "Unable to parse header.")
nil))))
(defn acceptable-languages
@ -94,11 +95,14 @@
of preference."
{:doc/format :markdown}
[accept-language-header]
(reverse
(sort-by
:preference
(generate-accept-languages
(parse-accept-language-header accept-language-header)))))
(let [parse-tree (parse-accept-language-header accept-language-header)]
(if (vector? parse-tree)
(reverse
(sort-by
:preference
(generate-accept-languages
parse-tree)))
(timbre/error "Failed to parse Accept-Language header '" accept-language-header "':\n" (str parse-tree)))))
(defn slurp-resource