aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2014-05-04 16:21:18 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2014-05-04 16:21:18 -0700
commitdbd6c1540f9688a3439fceec405ec4d86dc951d5 (patch)
tree79241e4f37f4362ce5a207cd48c7121a9a2b2bff /src/Text/Pandoc
parent51aa3048347280db6798a84a30af4f6e1ae56b26 (diff)
downloadpandoc-dbd6c1540f9688a3439fceec405ec4d86dc951d5.tar.gz
Fixed the fix to #1154.
We need to strip off up to 4 spaces, not up to 3.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 69245cf66..aac87f363 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -746,7 +746,7 @@ listLine = try $ do
many spaceChar
listStart)
notFollowedBy' $ htmlTag (~== TagClose "div")
- nonindentSpaces
+ optional (() <$ indentSpaces)
chunks <- manyTill
( many1 (satisfy $ \c -> c /= '\n' && c /= '<')
<|> liftM snd (htmlTag isCommentTag)