From 15ea29b223a1a3042ecaae38a1eee9815648684a Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 7 Jan 2007 01:44:24 +0000 Subject: 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 --- src/Text/Pandoc/Readers/Markdown.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3