summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-09-09 10:16:06 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-09-09 10:16:45 -0700
commitbee255cbfe39a00247a96c63ca5d2527200da9cf (patch)
treec27ab4eb4871f6c21f6c6b8d793e3cd89d3b1d20 /src
parent7f515add5896edfbb876fb65d9c1f1eea2e81fb0 (diff)
Use user data directory for reference docx archive.
This allows the test suite to work without installing pandoc first. It also brings the docx writer in line with the odt writer.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 0cb313e7b..5870844a4 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -211,7 +211,7 @@ writeDocx opts doc@(Pandoc meta _) = do
let doc' = walk fixDisplayMath $ doc
username <- lookup "USERNAME" <$> getEnvironment
utctime <- getCurrentTime
- distArchive <- getDefaultReferenceDocx Nothing
+ distArchive <- getDefaultReferenceDocx datadir
refArchive <- case writerReferenceDocx opts of
Just f -> liftM (toArchive . toLazy) $ B.readFile f
Nothing -> getDefaultReferenceDocx datadir