From bbe34da85475675dff0d8b6383e26ac783774060 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 25 Nov 2018 03:39:02 +0300
Subject: MediaWiki reader internals: remove unnecessary binding

---
 src/Text/Pandoc/Readers/MediaWiki.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 764b57f18..ff66da0b2 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -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
-- 
cgit v1.2.3