From 726ad97faebe59e024d68d293e663c02bbe423c8 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sat, 17 Jul 2021 23:36:32 +0200 Subject: LaTeX reader: fix language region Ref. https://github.com/jgm/pandoc/issues/7447 --- src/Text/Pandoc/Readers/LaTeX/Lang.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/LaTeX/Lang.hs b/src/Text/Pandoc/Readers/LaTeX/Lang.hs index 6a8327904..3151fc688 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Lang.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Lang.hs @@ -105,7 +105,7 @@ polyglossiaLangToBCP47 = M.fromList "locale=morocco" -> Lang "ar" Nothing (Just "MA") [] [] [] "locale=mauritania" -> Lang "ar" Nothing (Just "MR") [] [] [] "locale=tunisia" -> Lang "ar" Nothing (Just "TN") [] [] [] - _ -> Lang "ar" Nothing (Just "") [] [] []) + _ -> Lang "ar" Nothing Nothing [] [] []) , ("german", \o -> case T.filter (/=' ') o of "spelling=old" -> Lang "de" Nothing (Just "DE") ["1901"] [] [] "variant=austrian,spelling=old" @@ -126,7 +126,7 @@ polyglossiaLangToBCP47 = M.fromList "variant=british" -> Lang "en" Nothing (Just "GB") [] [] [] "variant=newzealand" -> Lang "en" Nothing (Just "NZ") [] [] [] "variant=american" -> Lang "en" Nothing (Just "US") [] [] [] - _ -> Lang "en" Nothing (Just "") [] [] []) + _ -> Lang "en" Nothing Nothing [] [] []) , ("usorbian", \_ -> Lang "hsb" Nothing Nothing [] [] []) , ("latin", \o -> case T.filter (/=' ') o of "variant=classic" -> Lang "la" Nothing Nothing ["x-classic"] [] [] -- cgit v1.2.3