diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 02455649f..ac98fcba6 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -74,7 +74,10 @@ indentSpaces = try $ do nonindentSpaces = do state <- getState let tabStop = stateTabStop state - choice $ map (\n -> (try (count n (char ' ')))) $ reverse [0..(tabStop - 1)] + sps <- many (char ' ') + if length sps < tabStop + then return sps + else unexpected "indented line" -- | Fail unless we're at beginning of a line. failUnlessBeginningOfLine = do |