diff options
-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 |