@@ -221,7 +221,7 @@ blockElements = choice [ comment
221comment :: PandocMonad m => MuseParser m (F Blocks)
221comment :: PandocMonad m => MuseParser m (F Blocks)
222comment = try $ do
222comment = try $ do
224− optionMaybe (spaceChar >> (many $ noneOf "\n"))
224+ optionMaybe (spaceChar >> many (noneOf "\n"))
226 return mempty
226 return mempty
@@ -658,7 +658,7 @@ footnote = try $ do
658 return $ B.note contents'
658 return $ B.note contents'
660whitespace :: PandocMonad m => MuseParser m (F Inlines)
660whitespace :: PandocMonad m => MuseParser m (F Inlines)
661−whitespace = fmap return (lb <|> regsp)
661+whitespace = return <$> (lb <|> regsp)
662 where lb = try $ skipMany spaceChar >> linebreak >> return B.space
662 where lb = try $ skipMany spaceChar >> linebreak >> return B.space
663 regsp = try $ skipMany1 spaceChar >> return B.space
663 regsp = try $ skipMany1 spaceChar >> return B.space