diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-03-28 10:51:14 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-03-28 10:51:14 -0700 |
| commit | 998695001abae17faa879ad31a3284d7c629a621 (patch) | |
| tree | 4e744c6fd979ea0075ddd6a45a42b299331434d9 /src/Text/Pandoc | |
| parent | 48b23d491d0b4d98792fc9e5b90ea0059ef43076 (diff) | |
| download | pandoc-998695001abae17faa879ad31a3284d7c629a621.tar.gz | |
Mediawiki reader: Fixed last commit.
Diffstat (limited to 'src/Text/Pandoc')
| -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 21b7363ff..9baed3cd3 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -336,7 +336,7 @@ preformatted = try $ do (htmlTag (~== TagOpen "nowiki" []) *> manyTill anyChar (htmlTag (~== TagClose "nowiki"))) let inline' = whitespace' <|> endline' <|> nowiki' - <|> (notFollowedBy newline *> inline) + <|> (try $ notFollowedBy newline *> inline) let strToCode (Str s) = Code ("",[],[]) s strToCode x = x contents <- mconcat <$> many1 inline' |