aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs3
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