diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-07 01:44:24 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-07 01:44:24 +0000 |
| commit | 15ea29b223a1a3042ecaae38a1eee9815648684a (patch) | |
| tree | d1f1dd97d0d234eaeb5713f9a9c2bed006d37381 | |
| parent | f2c2494b66e3577c43e910ea19152d7d4d1c2f49 (diff) | |
| download | pandoc-15ea29b223a1a3042ecaae38a1eee9815648684a.tar.gz | |
Small improvements to indentSpaces. (Allow combinations
of spaces and tabs.)
git-svn-id: https://pandoc.googlecode.com/svn/trunk@446 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index b578e85c9..f72918a0e 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -104,7 +104,8 @@ skipEndline = option Space endline indentSpaces = do state <- getState let tabStop = stateTabStop state - oneOfStrings [ "\t", (replicate tabStop ' ') ] <?> "indentation" + count tabStop (char ' ') <|> + (do{skipNonindentSpaces; string "\t"}) <?> "indentation" skipNonindentSpaces = do state <- getState |