diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-04-11 21:28:48 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-04-17 16:15:14 -0700 |
| commit | aecbf8156eb7c36c4b41de27797e262c23728db5 (patch) | |
| tree | 2c9fe9de41a0f7037485dacee444b36cc2ccc110 /src/Text/Pandoc/Readers/BibTeX.hs | |
| parent | 7ba8c0d2a5e2b89ae1547759510b2ee21de88cb1 (diff) | |
| download | pandoc-aecbf8156eb7c36c4b41de27797e262c23728db5.tar.gz | |
Remove Text.Pandoc.BCP47 module.
[API change]
Use Lang from UnicodeCollation.Lang instead.
This is a richer implementation of BCP 47.
Diffstat (limited to 'src/Text/Pandoc/Readers/BibTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/BibTeX.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/BibTeX.hs b/src/Text/Pandoc/Readers/BibTeX.hs index 956b9f1f7..b82a81350 100644 --- a/src/Text/Pandoc/Readers/BibTeX.hs +++ b/src/Text/Pandoc/Readers/BibTeX.hs @@ -48,11 +48,14 @@ readBibLaTeX = readBibTeX' BibTeX.Biblatex readBibTeX' :: PandocMonad m => Variant -> ReaderOptions -> Text -> m Pandoc readBibTeX' variant _opts t = do - lang <- maybe (Lang "en" (Just "US")) parseLang - <$> lookupEnv "LANG" + mblangEnv <- lookupEnv "LANG" + let defaultLang = Lang "en" Nothing (Just "US") [] [] [] + let lang = case mblangEnv of + Nothing -> defaultLang + Just l -> either (const defaultLang) id $ parseLang l locale <- case getLocale lang of Left e -> - case getLocale (Lang "en" (Just "US")) of + case getLocale (Lang "en" Nothing (Just "US") [] [] []) of Right l -> return l Left _ -> throwError $ PandocCiteprocError e Right l -> return l |