aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-09-12 11:23:34 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2013-09-12 11:23:57 -0700
commit37471041788f079632ec369a970a184864799c3d (patch)
tree6b590834c97b1cd2f07cedea0c1e9c6363c0accd /src/Text/Pandoc
parentca6842349e23b3f60cb2665d1c20de9951bea268 (diff)
downloadpandoc-37471041788f079632ec369a970a184864799c3d.tar.gz
Markdown writer: Print references if output is 'plain'.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 23e730bf0..a36bb8e14 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -189,7 +189,8 @@ pandocToMarkdown opts (Pandoc meta blocks) = do
-- Strip off final 'references' header if markdown citations enabled
let blocks' = case reverse blocks of
(Div (_,["references"],_) _):xs
- | isEnabled Ext_citations opts -> reverse xs
+ | not isPlain && isEnabled Ext_citations opts
+ -> reverse xs
_ -> blocks
body <- blockListToMarkdown opts blocks'
st <- get