Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Mediawiki reader: Fixed last commit.

Browse source
This commit is contained in:
John MacFarlane 2013-03-28 10:51:14 -07:00
parent 48b23d491d
commit 998695001a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/MediaWiki.hs
View file

@ -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'