@@ -221,7 +221,7 @@ blockElements = choice [ comment
221221comment :: PandocMonad m => MuseParser m (F Blocks)
222222comment = try $ do
223223 char ';'
224− optionMaybe (spaceChar >> (many $ noneOf "\n"))
224+ optionMaybe (spaceChar >> many (noneOf "\n"))
225225 eol
226226 return mempty
227227
@@ -658,7 +658,7 @@ footnote = try $ do
658658 return $ B.note contents'
659659
660660whitespace :: PandocMonad m => MuseParser m (F Inlines)
661−whitespace = fmap return (lb <|> regsp)
661+whitespace = return <$> (lb <|> regsp)
662662 where lb = try $ skipMany spaceChar >> linebreak >> return B.space
663663 regsp = try $ skipMany1 spaceChar >> return B.space
664664