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

Use user data directory for reference docx archive.

Browse source 
This allows the test suite to work without installing pandoc first.
It also brings the docx writer in line with the odt writer.
This commit is contained in:
John MacFarlane 2015-09-09 10:16:06 -07:00
parent 7f515add58
commit bee255cbfe
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

@ -211,7 +211,7 @@ writeDocx opts doc@(Pandoc meta _) = do
let doc' = walk fixDisplayMath $ doc let doc' = walk fixDisplayMath $ doc
username <- lookup "USERNAME" <$> getEnvironment username <- lookup "USERNAME" <$> getEnvironment
utctime <- getCurrentTime utctime <- getCurrentTime
distArchive <- getDefaultReferenceDocx Nothing distArchive <- getDefaultReferenceDocx datadir
refArchive <- case writerReferenceDocx opts of refArchive <- case writerReferenceDocx opts of
Just f -> liftM (toArchive . toLazy) $ B.readFile f Just f -> liftM (toArchive . toLazy) $ B.readFile f
Nothing -> getDefaultReferenceDocx datadir Nothing -> getDefaultReferenceDocx datadir