summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/MediaWiki.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-02-21 23:03:10 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-02-21 23:03:10 +0100
commitf90b82d3d9e53ff005911252d1a9242bba0d5272 (patch)
treeefa0525ca9fbb6b2c9aeaf732b84c3df369bd3f4 /src/Text/Pandoc/Writers/MediaWiki.hs
parente462f80d74e7d0297ae96dc8bd57cb66dcccfa71 (diff)
MediaWiki writer: Remove newline before `</ref>`.
Closes #2652.
Diffstat (limited to 'src/Text/Pandoc/Writers/MediaWiki.hs')
-rw-r--r--src/Text/Pandoc/Writers/MediaWiki.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs
index d677cd2d0..22f56d4a8 100644
--- a/src/Text/Pandoc/Writers/MediaWiki.hs
+++ b/src/Text/Pandoc/Writers/MediaWiki.hs
@@ -434,8 +434,8 @@ inlineToMediaWiki (Image attr alt (source, tit)) = do
inlineToMediaWiki (Note contents) = do
contents' <- blockListToMediaWiki contents
modify (\s -> s { stNotes = True })
- return $ "<ref>" ++ contents' ++ "</ref>"
- -- note - may not work for notes with multiple blocks
+ return $ "<ref>" ++ stripTrailingNewlines contents' ++ "</ref>"
+ -- note - does not work for notes with multiple blocks
highlightingLangs :: Set.Set String
highlightingLangs = Set.fromList [