diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-21 23:03:10 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-21 23:03:10 +0100 |
| commit | f90b82d3d9e53ff005911252d1a9242bba0d5272 (patch) | |
| tree | efa0525ca9fbb6b2c9aeaf732b84c3df369bd3f4 /src | |
| parent | e462f80d74e7d0297ae96dc8bd57cb66dcccfa71 (diff) | |
| download | pandoc-f90b82d3d9e53ff005911252d1a9242bba0d5272.tar.gz | |
MediaWiki writer: Remove newline before `</ref>`.
Closes #2652.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 4 |
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 [ |