@@ -494,7 +494,7 @@ endOfParagraph = try $ skipSpaces *> newline *> endOfBlock
494494
495495-- | Example code marked up by a leading colon.
496496example :: Monad m => OrgParser m (F Blocks)
497−example = try $ returnF . exampleCode =<< T.unlines <$> many1 exampleLine
497+example = try $ returnF . exampleCode . T.unlines =<< many1 exampleLine
498498 where
499499 exampleLine :: Monad m => OrgParser m Text
500500 exampleLine = try $ exampleLineStart *> anyLine
@@ -619,7 +619,7 @@ orgTable = try $ do
619619 -- tables start at first non-space character on the line
620620 let isFirstInListItem st = orgStateParserContext st == ListItemState &&
621621 isNothing (orgStateLastPreCharPos st)
622− guard =<< not . isFirstInListItem <$> getState
622+ guard . not . isFirstInListItem =<< getState
623623 blockAttrs <- blockAttributes
624624 lookAhead tableStart
625625 rows <- tableRows