diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-26 06:43:14 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-26 06:43:14 -0400 |
| commit | b613d85af958a94d8c9b34868c7d67cbb606d725 (patch) | |
| tree | 3b801be5c253ecd00f3416027283e9ba6696efc0 /src/Text/Pandoc | |
| parent | 21253b59e803598014aa9b3769fbc353d279c698 (diff) | |
| download | pandoc-b613d85af958a94d8c9b34868c7d67cbb606d725.tar.gz | |
Docx writer: Accomodate GHC 7.4 (no lookupEnv)
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 1b7219895..687a85f9c 100644 --- 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 |