Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx writer: Accomodate GHC 7.4 (no lookupEnv)

Browse source
This commit is contained in:
Jesse Rosenthal 2014-08-26 06:43:14 -04:00
parent 21253b59e8
commit b613d85af9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Docx.hs
View file

@ -149,7 +149,7 @@ writeDocx :: WriterOptions -- ^ Writer options
writeDocx opts doc@(Pandoc meta _) = do writeDocx opts doc@(Pandoc meta _) = do
let datadir = writerUserDataDir opts let datadir = writerUserDataDir opts
let doc' = walk fixDisplayMath doc let doc' = walk fixDisplayMath doc
username <- lookupEnv "USERNAME" username <- lookup "USERNAME" <$> getEnvironment
utctime <- getCurrentTime utctime <- getCurrentTime
refArchive <- liftM (toArchive . toLazy) $ refArchive <- liftM (toArchive . toLazy) $
case writerReferenceDocx opts of case writerReferenceDocx opts of