From 6119125a8b54f55c7e4c9a2f62d0282a2adcfb74 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Fri, 25 Sep 2020 09:43:13 +0200
Subject: Org reader: fix HLint warnings
---
src/Text/Pandoc/Readers/Org/Blocks.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs
index d71cd7faf..8eb7cfdd3 100644
--- a/src/Text/Pandoc/Readers/Org/Blocks.hs
+++ b/src/Text/Pandoc/Readers/Org/Blocks.hs
@@ -494,7 +494,7 @@ endOfParagraph = try $ skipSpaces *> newline *> endOfBlock
-- | Example code marked up by a leading colon.
example :: Monad m => OrgParser m (F Blocks)
-example = try $ returnF . exampleCode =<< T.unlines <$> many1 exampleLine
+example = try $ returnF . exampleCode . T.unlines =<< many1 exampleLine
where
exampleLine :: Monad m => OrgParser m Text
exampleLine = try $ exampleLineStart *> anyLine
@@ -619,7 +619,7 @@ orgTable = try $ do
-- tables start at first non-space character on the line
let isFirstInListItem st = orgStateParserContext st == ListItemState &&
isNothing (orgStateLastPreCharPos st)
- guard =<< not . isFirstInListItem <$> getState
+ guard . not . isFirstInListItem =<< getState
blockAttrs <- blockAttributes
lookAhead tableStart
rows <- tableRows
--
cgit v1.2.3