aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-02-13 14:34:27 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-02-13 14:43:44 +0300
commite02b7d2b384ac5ae55e13cb60dcf7f89dffcd806 (patch)
tree4872ccd22d0230652c9419b6a18657046956581f /src/Text/Pandoc/Readers
parent42e39fbd2678fb8480b6253232ffe0258d2bae00 (diff)
downloadpandoc-e02b7d2b384ac5ae55e13cb60dcf7f89dffcd806.tar.gz
Muse reader: hlint
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 7ac33fe69..770199fd7 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -298,7 +298,7 @@ parseBlocksTill end =
Right rest -> return $ first B.<> rest
paraStart = do (first, e) <- paraUntil ((Left <$> end) <|> (Right <$> continuation))
case e of
- Left _ -> return $ first
+ Left _ -> return first
Right rest -> return $ first B.<> rest
continuation = parseBlocksTill end
@@ -330,7 +330,7 @@ listItemContentsUntil col pre end =
(first, e) <- anyListUntil ((Left <$> pre) <|> (Right <$> continuation) <|> (Left <$> end))
case e of
Left ee -> return (first, ee)
- Right (rest, ee) -> return $ (first B.<> rest, ee)
+ Right (rest, ee) -> return (first B.<> rest, ee)
continuation = try $ do blank <- optionMaybe blankline
skipMany blankline
indentWith col
@@ -441,7 +441,7 @@ rightTag :: PandocMonad m => MuseParser m (F Blocks)
rightTag = snd <$> parseHtmlContent "right"
quoteTag :: PandocMonad m => MuseParser m (F Blocks)
-quoteTag = (fmap B.blockQuote) <$> snd <$> parseHtmlContent "quote"
+quoteTag = fmap B.blockQuote . snd <$> parseHtmlContent "quote"
-- <div> tag is supported by Emacs Muse, but not Amusewiki 2.025
divTag :: PandocMonad m => MuseParser m (F Blocks)
@@ -451,7 +451,7 @@ divTag = do
verseLine :: PandocMonad m => MuseParser m (F Inlines)
verseLine = do
- indent <- (B.str <$> many1 (char ' ' >> pure '\160')) <|> (pure mempty)
+ indent <- (B.str <$> many1 (char ' ' >> pure '\160')) <|> pure mempty
rest <- manyTill (choice inlineList) newline
return $ trimInlinesF $ mconcat (pure indent : rest)
@@ -478,7 +478,7 @@ paraUntil end = do
setState $ state{ museInPara = True }
(l, e) <- someUntil inline $ try (manyTill spaceChar eol >> end)
updateState (\st -> st { museInPara = False })
- return (fmap (B.para) $ trimInlinesF $ mconcat l, e)
+ return (fmap B.para $ trimInlinesF $ mconcat l, e)
noteMarker :: PandocMonad m => MuseParser m String
noteMarker = try $ do
@@ -571,7 +571,7 @@ bulletListUntil end = try $ do
let indent = sourceColumn pos - 1
guard $ indent /= 0
(items, e) <- bulletListItemsUntil indent end
- return $ (B.bulletList <$> sequence items, e)
+ return (B.bulletList <$> sequence items, e)
listItemContents :: PandocMonad m => MuseParser m (F Blocks)
listItemContents = do
@@ -629,7 +629,7 @@ orderedListUntil end = try $ do
p@(_, style, _) <- anyMuseOrderedListMarker
guard $ style `elem` [Decimal, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman]
(items, e) <- orderedListItemsUntil indent style end
- return $ (B.orderedListWith p <$> sequence items, e)
+ return (B.orderedListWith p <$> sequence items, e)
descriptionsUntil :: PandocMonad m
=> Int