diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-08-04 21:59:58 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-04 21:59:58 -0700 |
commit | 39b59b7603c1e183dd20bb062b6279c2acc4ebd5 (patch) | |
tree | 172b9702814760ca647291ac87f1a9ccbb4156ec /src/Text | |
parent | d71b013841f3c9c8c595591e312a31df16a728cb (diff) | |
parent | 3a411c3307482d5f13c1820bb8f39203175853fb (diff) | |
download | pandoc-39b59b7603c1e183dd20bb062b6279c2acc4ebd5.tar.gz |
Merge pull request #1476 from jkr/endnote-fix
Docx Parser: Produce endnotes.
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 4 |
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 |