From bee255cbfe39a00247a96c63ca5d2527200da9cf Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 9 Sep 2015 10:16:06 -0700
Subject: 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.
---
 src/Text/Pandoc/Writers/Docx.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3