Docx writer: Accomodate GHC 7.4 (no lookupEnv)

2014-08-26 06:43:14 -04:00 · 2014-08-26 06:43:14 -04:00 · b613d85af9
commit b613d85af9
parent 21253b59e8
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@ -149,7 +149,7 @@ writeDocx :: WriterOptions  -- ^ Writer options
 writeDocx opts doc@(Pandoc meta _) = do
  let datadir = writerUserDataDir opts
  let doc' = walk fixDisplayMath doc
-  username <- lookupEnv "USERNAME"
+  username <- lookup "USERNAME" <$> getEnvironment
  utctime <- getCurrentTime
  refArchive <- liftM (toArchive . toLazy) $
       case writerReferenceDocx opts of