--- /dev/null
+#
+# Monkey patch HttpAcceptLanguage pending integration of
+# https://github.com/iain/http_accept_language/pull/6
+#
+module HttpAcceptLanguage
+ def compatible_language_from(available_languages)
+ user_preferred_languages.find do |x|
+ available_languages.find { |y| y.to_s == x.to_s } ||
+ available_languages.find { |y| y.to_s =~ /^#{Regexp.escape(x.to_s)}-/ }
+ end
+ end
+end