@@ -124,7 +124,7 @@ parseMuse = do
124124 many directive
125125 firstSection <- parseBlocks
126126 rest <- many parseSection
127− let blocks = mconcat $ (firstSection : rest)
127+ let blocks = mconcat (firstSection : rest)
128128 st <- getState
129129 let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
130130 meta <- museMeta st
@@ -182,8 +182,7 @@ openTag :: PandocMonad m => String -> MuseParser m [(String, String)]
182182openTag tag = try $ do
183183 char '<'
184184 string tag
185− attrs <- manyTill attr (char '>')
186− return attrs
185+ manyTill attr (char '>')
187186 where
188187 attr = try $ do
189188 many1 spaceChar
@@ -278,8 +277,8 @@ parseBlocks =
278277 where
279278 nextSection = mempty <$ lookAhead headingStart
280279 parseEnd = mempty <$ eof
281− blockStart = ((B.<>) <$> (blockElements <|> emacsNoteBlock)
282− <*> parseBlocks)
280+ blockStart = (B.<>) <$> (blockElements <|> emacsNoteBlock)
281+ <*> parseBlocks
283282 listStart = do
284283 updateState (\st -> st { museInPara = False })
285284 uncurry (B.<>) <$> (anyListUntil parseBlocks <|> amuseNoteBlockUntil parseBlocks)
@@ -293,7 +292,7 @@ parseSection :: PandocMonad m
293292 => MuseParser m (F Blocks)
294293parseSection =
295294 ((B.<>) <$> emacsHeading <*> parseBlocks) <|>
296− ((uncurry (B.<>)) <$> amuseHeadingUntil parseBlocks)
295+ (uncurry (B.<>) <$> amuseHeadingUntil parseBlocks)
297296
298297parseBlocksTill :: PandocMonad m
299298 => MuseParser m a