MediaWiki reader internals: remove unnecessary binding
commitbbe34da85475675dff0d8b6383e26ac783774060
authorAlexander Krotov <ilabdsf@gmail.com>
dateSun 25 Nov 2018, 03:39 (8 years ago)
parent8ae1813
src/Text/Pandoc/Readers/MediaWiki.hs+1−2
@@ -415,8 +415,7 @@ encode = B.fromList . normalizeCode . B.toList . walk strToCode
415415header :: PandocMonad m => MWParser m Blocks
416416header = try $ do
417417 guardColumnOne
418− eqs <- many1 (char '=')
419− let lev = length eqs
418+ lev <- length <$> many1 (char '=')
420419 guard $ lev <= 6
421420 contents <- trimInlines . mconcat <$> manyTill inline (count lev $ char '=')
422421 attr <- registerHeader nullAttr contents