From 841784fb57b05a404646a608447ba5ac903a3a31 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 19 Sep 2018 15:26:21 +0300
Subject: [PATCH] hlint Muse reader
---
src/Text/Pandoc/Readers/Muse.hs | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 024ede456..a1f0e19ac 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -124,7 +124,7 @@ parseMuse = do
many directive
firstSection <- parseBlocks
rest <- many parseSection
- let blocks = mconcat $ (firstSection : rest)
+ let blocks = mconcat (firstSection : rest)
st <- getState
let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
meta <- museMeta st
@@ -182,8 +182,7 @@ openTag :: PandocMonad m => String -> MuseParser m [(String, String)]
openTag tag = try $ do
char '<'
string tag
- attrs <- manyTill attr (char '>')
- return attrs
+ manyTill attr (char '>')
where
attr = try $ do
many1 spaceChar
@@ -278,8 +277,8 @@ parseBlocks =
where
nextSection = mempty <$ lookAhead headingStart
parseEnd = mempty <$ eof
- blockStart = ((B.<>) <$> (blockElements <|> emacsNoteBlock)
- <*> parseBlocks)
+ blockStart = (B.<>) <$> (blockElements <|> emacsNoteBlock)
+ <*> parseBlocks
listStart = do
updateState (\st -> st { museInPara = False })
uncurry (B.<>) <$> (anyListUntil parseBlocks <|> amuseNoteBlockUntil parseBlocks)
@@ -293,7 +292,7 @@ parseSection :: PandocMonad m
=> MuseParser m (F Blocks)
parseSection =
((B.<>) <$> emacsHeading <*> parseBlocks) <|>
- ((uncurry (B.<>)) <$> amuseHeadingUntil parseBlocks)
+ (uncurry (B.<>) <$> amuseHeadingUntil parseBlocks)
parseBlocksTill :: PandocMonad m
=> MuseParser m a