Fixed exampleLine parser to accept example lines which have indentation at the start of the line.

This commit is contained in:
Calvin Beck 2014-08-26 21:56:40 -06:00
parent 9f8051d95d
commit f813755c55

View file

@ -483,7 +483,7 @@ exampleCode :: String -> Blocks
exampleCode = B.codeBlockWith ("", ["example"], [])
exampleLine :: OrgParser String
exampleLine = try $ string ": " *> anyLine
exampleLine = try $ skipSpaces *> string ": " *> anyLine
-- Drawers for properties or a logbook
drawer :: OrgParser (F Blocks)