diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-09 11:56:34 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-09 11:58:59 +0300 |
| commit | 9ee00fc0f8a460a15790e868c183e2b0effbcfe1 (patch) | |
| tree | 912d4a15ff125855199c4416bf42650dc45e1989 | |
| parent | 58eb78c437a411ee796e2c90d7c4681fe78d8254 (diff) | |
| download | pandoc-9ee00fc0f8a460a15790e868c183e2b0effbcfe1.tar.gz | |
Get rid of unnecessary bind "res"
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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) |