diff options
| author | Calvin Beck <hobbes@ualberta.ca> | 2014-08-26 21:56:40 -0600 |
|---|---|---|
| committer | Calvin Beck <hobbes@ualberta.ca> | 2014-08-26 21:56:40 -0600 |
| commit | f813755c550cb0e0297e8a3ce4c77b87ed6e3571 (patch) | |
| tree | b7e3fd12a65fef5db73d8fc612d5b7550a8ebad4 | |
| parent | 9f8051d95d4353c1f7df9bf30024ba5f60e1477f (diff) | |
| download | pandoc-f813755c550cb0e0297e8a3ce4c77b87ed6e3571.tar.gz | |
Fixed exampleLine parser to accept example lines which have indentation at the start of the line.
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs index e1c29d1e8..62421d2fb 100644 --- a/src/Text/Pandoc/Readers/Org.hs +++ b/src/Text/Pandoc/Readers/Org.hs @@ -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) |