diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-30 09:55:36 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-30 09:55:36 -0800 |
| commit | 7702d2ca82f3013ba522985c41aedf71c10df9fb (patch) | |
| tree | 2e3126696001b0e0f474d6d56bed8d5bf8273d29 /src/Text/Pandoc/Writers | |
| parent | 925a4c5164026bfda25bf50b552bacec074fdf3f (diff) | |
| download | pandoc-7702d2ca82f3013ba522985c41aedf71c10df9fb.tar.gz | |
EPUB: Get correct environment variable for LANG.
This should fix `<dc:language>` problems.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index d139c010c..a817f07a5 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -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" ! |