diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-12-12 09:31:51 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-12-12 09:31:51 -0800 |
| commit | af7e78243682ec7c353dd202590c45c734f86ada (patch) | |
| tree | 731509a3ab17391a415bfb13c9798884569fe554 /src/Text/Pandoc/Readers/MediaWiki.hs | |
| parent | d9c2f500bf636dca5b7f54548faf13dfd363c53b (diff) | |
Modified readers to emit SoftBreak when appropriate.
Diffstat (limited to 'src/Text/Pandoc/Readers/MediaWiki.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 24b3f5c7e..e423720df 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -555,7 +555,8 @@ inlineHtml :: MWParser Inlines inlineHtml = B.rawInline "html" . snd <$> htmlTag isInlineTag' whitespace :: MWParser Inlines -whitespace = B.space <$ (skipMany1 spaceChar <|> endline <|> htmlComment) +whitespace = B.space <$ (skipMany1 spaceChar <|> htmlComment) + <|> B.softbreak <$ endline endline :: MWParser () endline = () <$ try (newline <* |