@@ -1635,6 +1635,7 @@ toPolyglossia (Lang "grc" _ _ _) = ("greek", "variant=ancient")
16351635toPolyglossia (Lang "hsb" _ _ _) = ("usorbian", "")
16361636toPolyglossia (Lang "la" _ _ vars)
16371637 | "x-classic" `elem` vars = ("latin", "variant=classic")
1638+toPolyglossia (Lang "pt" _ "BR" _) = ("portuguese", "variant=brazilian")
16381639toPolyglossia (Lang "sl" _ _ _) = ("slovenian", "")
16391640toPolyglossia x = (commonFromBcp47 x, "")
16401641
@@ -1669,6 +1670,7 @@ toBabel (Lang "grc" _ _ _) = "polutonikogreek"
16691670toBabel (Lang "hsb" _ _ _) = "uppersorbian"
16701671toBabel (Lang "la" _ _ vars)
16711672 | "x-classic" `elem` vars = "classiclatin"
1673+toBabel (Lang "pt" _ "BR" _) = "brazilian"
16721674toBabel (Lang "sl" _ _ _) = "slovene"
16731675toBabel x = commonFromBcp47 x
16741676
@@ -1676,9 +1678,6 @@ toBabel x = commonFromBcp47 x
16761678-- and converts it to a string shared by Babel and Polyglossia.
16771679-- https://tools.ietf.org/html/bcp47#section-2.1
16781680commonFromBcp47 :: Lang -> Text
1679−commonFromBcp47 (Lang "pt" _ "BR" _) = "brazil"
1680−-- Note: documentation says "brazilian" works too, but it doesn't seem to work
1681−-- on some systems. See #2953.
16821681commonFromBcp47 (Lang "sr" "Cyrl" _ _) = "serbianc"
16831682commonFromBcp47 (Lang "zh" "Latn" _ vars)
16841683 | "pinyin" `elem` vars = "pinyin"