From f90b82d3d9e53ff005911252d1a9242bba0d5272 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 21 Feb 2017 23:03:10 +0100
Subject: MediaWiki writer: Remove newline before `</ref>`.

Closes #2652.
---
 src/Text/Pandoc/Writers/MediaWiki.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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 [
-- 
cgit v1.2.3