aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-16 19:14:05 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-18 02:17:26 +0300
commitd7f0ecfdd884871e3c49a9ebec738fb874685cd3 (patch)
tree85ed540f367804e993693cb78457d6bafabf43a6 /src/Text/Pandoc/Readers
parent588af3cc7876e0e0d91112f396d999a1d4d9aa73 (diff)
downloadpandoc-d7f0ecfdd884871e3c49a9ebec738fb874685cd3.tar.gz
Muse reader: code cleanup
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 78c567759..de7d629bd 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -221,7 +221,7 @@ blockElements = choice [ comment
comment :: PandocMonad m => MuseParser m (F Blocks)
comment = try $ do
char ';'
- optionMaybe (spaceChar >> (many $ noneOf "\n"))
+ optionMaybe (spaceChar >> many (noneOf "\n"))
eol
return mempty
@@ -658,7 +658,7 @@ footnote = try $ do
return $ B.note contents'
whitespace :: PandocMonad m => MuseParser m (F Inlines)
-whitespace = fmap return (lb <|> regsp)
+whitespace = return <$> (lb <|> regsp)
where lb = try $ skipMany spaceChar >> linebreak >> return B.space
regsp = try $ skipMany1 spaceChar >> return B.space