diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-03-01 22:37:06 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-03-01 22:37:06 +0000 |
| commit | f5e00c50b8ec7c5687feae6278869205a1d6ab60 (patch) | |
| tree | fc7c131f5c90838c8710a3f6d6d10fff5e4de15c /src/Text | |
| parent | 50583e9e3f586ef93edf6108fde9b1801b231088 (diff) | |
Markdown reader: Allow footnotes to be indented < 4 spaces.
This fixes a regression. A test case has been added in testsuite.txt.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1859 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 029b40101..f674ee204 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -222,8 +222,8 @@ referenceTitle = try $ do notFollowedBy (noneOf ")\n"))) return $ decodeCharacterReferences tit -noteMarker :: GenParser Char st [Char] -noteMarker = string "[^" >> manyTill (noneOf " \t\n") (char ']') +noteMarker :: GenParser Char ParserState [Char] +noteMarker = skipNonindentSpaces >> string "[^" >> manyTill (noneOf " \t\n") (char ']') rawLine :: GenParser Char ParserState [Char] rawLine = do |