diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-19 04:26:45 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-19 04:40:00 +0300 |
| commit | 82bcda80c6e8b9e6e4e6c707569df4f9022b042f (patch) | |
| tree | 3866404706c67c9e09129541eb963646e3ce293e /src/Text/Pandoc | |
| parent | 163af3fdee3c09234436ea7aab84a8b29ec1cece (diff) | |
| download | pandoc-82bcda80c6e8b9e6e4e6c707569df4f9022b042f.tar.gz | |
Muse reader: count only one space as part of list item marker
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 4510e08ce..d54019777 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -392,8 +392,8 @@ listStart marker = try $ do st <- stateParserContext <$> getState getPosition >>= \pos -> guard (st == ListItemState || sourceColumn pos /= 1) markerLength <- marker - postWhitespace <- length <$> many1 spaceChar - return $ preWhitespace + markerLength + postWhitespace + many1 spaceChar + return $ preWhitespace + markerLength + 1 listItemContents :: PandocMonad m => Int -> MuseParser m (F Blocks) listItemContents markerLength = do |