diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-07-12 14:11:09 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-12 14:11:09 -0700 |
commit | 8bbcff0cfcd9923cdcf5024d13bb411d085715d0 (patch) | |
tree | fbed47b6034120d029cda85c4e3497d2e96c35c3 /src/Text/Pandoc/Readers/MediaWiki.hs | |
parent | 6c4345aa0bbdc963e1a1c9a9ea2a55e3682a1fa5 (diff) | |
parent | 72fe742ca014f42c7e45e8046ceeea3c0ab2cd9a (diff) | |
download | pandoc-8bbcff0cfcd9923cdcf5024d13bb411d085715d0.tar.gz |
Merge pull request #1414 from mpickering/general
Improvements to Parsing.hs
Diffstat (limited to 'src/Text/Pandoc/Readers/MediaWiki.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index f1dcce8f7..719bde160 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -634,7 +634,7 @@ inlinesBetween :: (Show b) => MWParser a -> MWParser b -> MWParser Inlines inlinesBetween start end = (trimInlines . mconcat) <$> try (start >> many1Till inner end) where inner = innerSpace <|> (notFollowedBy' (() <$ whitespace) >> inline) - innerSpace = try $ whitespace >>~ notFollowedBy' end + innerSpace = try $ whitespace <* notFollowedBy' end emph :: MWParser Inlines emph = B.emph <$> nested (inlinesBetween start end) |