diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-09-25 09:43:13 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-09-25 09:44:00 +0200 |
| commit | 6119125a8b54f55c7e4c9a2f62d0282a2adcfb74 (patch) | |
| tree | c193bcd85dcf321152d1b636c5284e279a7bce2a /src/Text | |
| parent | 29baaa2acb232a4064eb23b4c899f878e3d63d8f (diff) | |
| download | pandoc-6119125a8b54f55c7e4c9a2f62d0282a2adcfb74.tar.gz | |
Org reader: fix HLint warnings
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |