From 9ee00fc0f8a460a15790e868c183e2b0effbcfe1 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 9 Oct 2018 11:56:34 +0300
Subject: Get rid of unnecessary bind "res"

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

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 134598c07..f3311c05e 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -875,8 +875,7 @@ verbatimTag = return . B.text
 classTag :: PandocMonad m => MuseParser m (F Inlines)
 classTag = do
   classes <- maybe [] words . lookup "name" <$> openTag "class"
-  res <- manyTill inline $ closeTag "class"
-  return $ B.spanWith ("", classes, []) <$> mconcat res
+  fmap (B.spanWith ("", classes, [])) . mconcat <$> manyTill inline (closeTag "class")
 
 -- | Parse "~~" as nonbreaking space.
 nbsp :: PandocMonad m => MuseParser m (F Inlines)
-- 
cgit v1.2.3