From 3a411c3307482d5f13c1820bb8f39203175853fb Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 1 Aug 2014 09:16:42 -0400 Subject: Docx Parser: Produce endnotes. The parser had been changing footnotes and endnotes into footnotes. This isn't a problem, because pandoc collapses them, but the parser should maintain as much of the docx structure as is collapsed, and let the toplevel reader worry about how to translate it into Pandoc. (This would be an issue when, as is planned, the docx parser spins off into its own module.) The output is the same, so no test change is required. --- src/Text/Pandoc/Readers/Docx/Parse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 71938afe0..cc93bc9ed 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -857,8 +857,8 @@ elemToRun ns element notes <- asks envNotes case lookupEndnote enId notes of Just e -> do bps <- mapD (elemToBodyPart ns) (elChildren e) - return $ Footnote bps - Nothing -> return $ Footnote [] + return $ Endnote bps + Nothing -> return $ Endnote [] elemToRun ns element | isElem ns "w" "r" element = do runElems <- elemToRunElems ns element -- cgit v1.2.3