Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

EPUB: Get correct environment variable for LANG.

Browse source 
This should fix `<dc:language>` problems.
This commit is contained in:
John MacFarlane 2011-12-30 09:55:36 -08:00
parent 925a4c5164
commit 7702d2ca82
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -120,7 +120,7 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do
let chapterEntries = zipWith chapterToEntry [1..] chapters
-- contents.opf
lang <- catch (liftM (takeWhile (/='.')) $ getEnv "lang")
lang <- catch (liftM (takeWhile (/='.')) $ getEnv "LANG")
(\_ -> return "en-US")
uuid <- getRandomUUID
let chapterNode ent = unode "item" !