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