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

MediaWiki reader internals: remove unnecessary binding

Browse source
This commit is contained in:
Alexander Krotov 2018-11-25 03:39:02 +03:00
parent 8ae18138df
commit bbe34da854
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -415,8 +415,7 @@ encode = B.fromList . normalizeCode . B.toList . walk strToCode
header :: PandocMonad m => MWParser m Blocks
header = try $ do
guardColumnOne
eqs <- many1 (char '=')
let lev = length eqs
lev <- length <$> many1 (char '=')
guard $ lev <= 6
contents <- trimInlines . mconcat <$> manyTill inline (count lev $ char '=')
attr <- registerHeader nullAttr contents