From 7702d2ca82f3013ba522985c41aedf71c10df9fb Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 30 Dec 2011 09:55:36 -0800
Subject: EPUB: Get correct environment variable for LANG.

This should fix `<dc:language>` problems.
---
 src/Text/Pandoc/Writers/EPUB.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

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" !
-- 
cgit v1.2.3