"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/Text/Pandoc/Readers/LaTeX/Lang.hs" between
pandoc-2.14.0.3.tar.gz and pandoc-2.14.1.tar.gz

About: Pandoc converts files from one markup format into another.

Lang.hs  (pandoc-2.14.0.3):Lang.hs  (pandoc-2.14.1)
skipping to change at line 108 skipping to change at line 108
polyglossiaLangToBCP47 :: M.Map T.Text (T.Text -> Lang) polyglossiaLangToBCP47 :: M.Map T.Text (T.Text -> Lang)
polyglossiaLangToBCP47 = M.fromList polyglossiaLangToBCP47 = M.fromList
[ ("arabic", \o -> case T.filter (/=' ') o of [ ("arabic", \o -> case T.filter (/=' ') o of
"locale=algeria" -> Lang "ar" Nothing (Just "DZ") [] [] [] "locale=algeria" -> Lang "ar" Nothing (Just "DZ") [] [] []
"locale=mashriq" -> Lang "ar" Nothing (Just "SY") [] [] [] "locale=mashriq" -> Lang "ar" Nothing (Just "SY") [] [] []
"locale=libya" -> Lang "ar" Nothing (Just "LY") [] [] [] "locale=libya" -> Lang "ar" Nothing (Just "LY") [] [] []
"locale=morocco" -> Lang "ar" Nothing (Just "MA") [] [] [] "locale=morocco" -> Lang "ar" Nothing (Just "MA") [] [] []
"locale=mauritania" -> Lang "ar" Nothing (Just "MR") [] [] [] "locale=mauritania" -> Lang "ar" Nothing (Just "MR") [] [] []
"locale=tunisia" -> Lang "ar" Nothing (Just "TN") [] [] [] "locale=tunisia" -> Lang "ar" Nothing (Just "TN") [] [] []
_ -> Lang "ar" Nothing (Just "") [] [] []) _ -> Lang "ar" Nothing Nothing [] [] [])
, ("german", \o -> case T.filter (/=' ') o of , ("german", \o -> case T.filter (/=' ') o of
"spelling=old" -> Lang "de" Nothing (Just "DE") ["1901"] [] [] "spelling=old" -> Lang "de" Nothing (Just "DE") ["1901"] [] []
"variant=austrian,spelling=old" "variant=austrian,spelling=old"
-> Lang "de" Nothing (Just "AT") ["1901"] [] [] -> Lang "de" Nothing (Just "AT") ["1901"] [] []
"variant=austrian" -> Lang "de" Nothing (Just "AT") [] [] [] "variant=austrian" -> Lang "de" Nothing (Just "AT") [] [] []
"variant=swiss,spelling=old" "variant=swiss,spelling=old"
-> Lang "de" Nothing (Just "CH") ["1901"] [] [] -> Lang "de" Nothing (Just "CH") ["1901"] [] []
"variant=swiss" -> Lang "de" Nothing (Just "CH") [] [] [] "variant=swiss" -> Lang "de" Nothing (Just "CH") [] [] []
_ -> Lang "de" Nothing Nothing [] [] []) _ -> Lang "de" Nothing Nothing [] [] [])
, ("lsorbian", \_ -> Lang "dsb" Nothing Nothing [] [] []) , ("lsorbian", \_ -> Lang "dsb" Nothing Nothing [] [] [])
, ("greek", \o -> case T.filter (/=' ') o of , ("greek", \o -> case T.filter (/=' ') o of
"variant=poly" -> Lang "el" Nothing (Just "polyton") [] [] [] "variant=poly" -> Lang "el" Nothing (Just "polyton") [] [] []
"variant=ancient" -> Lang "grc" Nothing Nothing [] [] [] "variant=ancient" -> Lang "grc" Nothing Nothing [] [] []
_ -> Lang "el" Nothing Nothing [] [] []) _ -> Lang "el" Nothing Nothing [] [] [])
, ("english", \o -> case T.filter (/=' ') o of , ("english", \o -> case T.filter (/=' ') o of
"variant=australian" -> Lang "en" Nothing (Just "AU") [] [] [] "variant=australian" -> Lang "en" Nothing (Just "AU") [] [] []
"variant=canadian" -> Lang "en" Nothing (Just "CA") [] [] [] "variant=canadian" -> Lang "en" Nothing (Just "CA") [] [] []
"variant=british" -> Lang "en" Nothing (Just "GB") [] [] [] "variant=british" -> Lang "en" Nothing (Just "GB") [] [] []
"variant=newzealand" -> Lang "en" Nothing (Just "NZ") [] [] [] "variant=newzealand" -> Lang "en" Nothing (Just "NZ") [] [] []
"variant=american" -> Lang "en" Nothing (Just "US") [] [] [] "variant=american" -> Lang "en" Nothing (Just "US") [] [] []
_ -> Lang "en" Nothing (Just "") [] [] []) _ -> Lang "en" Nothing Nothing [] [] [])
, ("usorbian", \_ -> Lang "hsb" Nothing Nothing [] [] []) , ("usorbian", \_ -> Lang "hsb" Nothing Nothing [] [] [])
, ("latin", \o -> case T.filter (/=' ') o of , ("latin", \o -> case T.filter (/=' ') o of
"variant=classic" -> Lang "la" Nothing Nothing ["x-classic"] [] [] "variant=classic" -> Lang "la" Nothing Nothing ["x-classic"] [] []
_ -> Lang "la" Nothing Nothing [] [] []) _ -> Lang "la" Nothing Nothing [] [] [])
, ("slovenian", \_ -> Lang "sl" Nothing Nothing [] [] []) , ("slovenian", \_ -> Lang "sl" Nothing Nothing [] [] [])
, ("serbianc", \_ -> Lang "sr" (Just "Cyrl") Nothing [] [] []) , ("serbianc", \_ -> Lang "sr" (Just "Cyrl") Nothing [] [] [])
, ("pinyin", \_ -> Lang "zh" (Just "Latn") Nothing ["pinyin"] [] []) , ("pinyin", \_ -> Lang "zh" (Just "Latn") Nothing ["pinyin"] [] [])
, ("afrikaans", \_ -> simpleLang "af") , ("afrikaans", \_ -> simpleLang "af")
, ("amharic", \_ -> simpleLang "am") , ("amharic", \_ -> simpleLang "am")
, ("assamese", \_ -> simpleLang "as") , ("assamese", \_ -> simpleLang "as")
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)