@@ -113,12 +113,12 @@ noteMarker = try $ do
113 <*> many1Till (noneOf "\n\r\t ") (char ']')
113 <*> many1Till (noneOf "\n\r\t ") (char ']')
116− -- | Succeeds if the parser is at the end of a block.
116+-- | Succeeds if the parser is at the end of a block.
117endOfBlock :: OrgParser ()
117endOfBlock :: OrgParser ()
118endOfBlock = lookAhead . try $ do
118endOfBlock = lookAhead . try $ do
119 void blankline <|> anyBlockStart <|> void noteMarker
119 void blankline <|> anyBlockStart <|> void noteMarker
121− -- | Succeeds if there is a new block starting at this position.
121+ -- Succeeds if there is a new block starting at this position.
122 anyBlockStart :: OrgParser ()
122 anyBlockStart :: OrgParser ()
123 anyBlockStart = try . choice $
123 anyBlockStart = try . choice $
124 [ exampleLineStart
124 [ exampleLineStart