EPUB: Get correct environment variable for LANG.
This should fix `<dc:language>` problems.
commit7702d2ca82f3013ba522985c41aedf71c10df9fb
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateFri 30 Dec 2011, 09:55 (15 years ago)
parent925a4c5
src/Text/Pandoc/Writers/EPUB.hs+1−1
@@ -120,7 +120,7 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do
120120 let chapterEntries = zipWith chapterToEntry [1..] chapters
121121
122122 -- contents.opf
123− lang <- catch (liftM (takeWhile (/='.')) $ getEnv "lang")
123+ lang <- catch (liftM (takeWhile (/='.')) $ getEnv "LANG")
124124 (\_ -> return "en-US")
125125 uuid <- getRandomUUID
126126 let chapterNode ent = unode "item" !