@@ -1197,7 +1197,9 @@ toBabel x = commonFromBcp47 x
1197-- https://tools.ietf.org/html/bcp47#section-2.1
1197-- https://tools.ietf.org/html/bcp47#section-2.1
1198commonFromBcp47 :: [String] -> String
1198commonFromBcp47 :: [String] -> String
1199commonFromBcp47 [] = ""
1199commonFromBcp47 [] = ""
1200−commonFromBcp47 ("pt":"BR":_) = "brazilian"
1200+commonFromBcp47 ("pt":"BR":_) = "brazil"
1201+-- Note: documentation says "brazilian" works too, but it doesn't seem to work
1202+-- on some systems. See #2953.
1201commonFromBcp47 ("sr":"Cyrl":_) = "serbianc"
1203commonFromBcp47 ("sr":"Cyrl":_) = "serbianc"
1202commonFromBcp47 ("zh":"Latn":"pinyin":_) = "pinyin"
1204commonFromBcp47 ("zh":"Latn":"pinyin":_) = "pinyin"
1203commonFromBcp47 x = fromIso $ head x
1205commonFromBcp47 x = fromIso $ head x