@@ -51,7 +51,10 @@ readBibTeX' variant _opts t = do
5151 lang <- maybe (Lang "en" (Just "US")) parseLang
5252 <$> lookupEnv "LANG"
5353 locale <- case getLocale lang of
54− Left e -> throwError $ PandocCiteprocError e
54+ Left e ->
55+ case getLocale (Lang "en" (Just "US")) of
56+ Right l -> return l
57+ Left _ -> throwError $ PandocCiteprocError e
5558 Right l -> return l
5659 case BibTeX.readBibtexString variant locale (const True) t of
5760 Left e -> throwError $ PandocParsecError t e