diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2021-07-17 23:36:32 +0200 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2021-07-17 23:36:32 +0200 |
| commit | 726ad97faebe59e024d68d293e663c02bbe423c8 (patch) | |
| tree | 28481b08aec378bf54d2ff9f0038779f07442111 | |
| parent | 48459559a13a20083fc9b31eb523b8ea2bf0a63f (diff) | |
| download | pandoc-726ad97faebe59e024d68d293e663c02bbe423c8.tar.gz | |
LaTeX reader: fix language region
Ref. https://github.com/jgm/pandoc/issues/7447
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Lang.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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"] [] [] |