git.iko.soy/typeable/pandoc
on master help sign in
DOCX writer: Look in user data dir for archive reference.docx.
e4f3475John MacFarlane
src/Text/Pandoc/Writers/Docx.hs+1−1
compare with master
unifiedsplit
@@ -183,7 +183,7 @@ writeDocx opts doc@(Pandoc meta _) = do
183 case writerReferenceDocx opts of
183 case writerReferenceDocx opts of
184 Just f -> B.readFile f
184 Just f -> B.readFile f
185 Nothing -> readDataFile datadir "reference.docx"
185 Nothing -> readDataFile datadir "reference.docx"
186− distArchive <- liftM (toArchive . toLazy) $ readDataFile Nothing "reference.docx"
186+ distArchive <- liftM (toArchive . toLazy) $ readDataFile datadir "reference.docx"
187
187
188 parsedDoc <- parseXml refArchive distArchive "word/document.xml"
188 parsedDoc <- parseXml refArchive distArchive "word/document.xml"
189 let wname f qn = qPrefix qn == Just "w" && f (qName qn)
189 let wname f qn = qPrefix qn == Just "w" && f (qName qn)