aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-08-01 09:16:42 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-08-01 09:16:42 -0400
commit3a411c3307482d5f13c1820bb8f39203175853fb (patch)
tree1b642cfa667a5db5ee5e3d6103d89d249b400b53 /src/Text
parent1b9371cfdf279301ecc50910664d7335508ade71 (diff)
downloadpandoc-3a411c3307482d5f13c1820bb8f39203175853fb.tar.gz
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.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Docx/Parse.hs4
1 files changed, 2 insertions, 2 deletions
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