diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-06-19 23:16:21 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-19 22:16:21 +0200 |
| commit | 4929d027dc57151dc7f009347478b35b90d2373b (patch) | |
| tree | 038d7b6212d68eed1535e33728e98d3e28237ae1 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | 564c77964ddbbdc5541086726b9109091119e140 (diff) | |
| download | pandoc-4929d027dc57151dc7f009347478b35b90d2373b.tar.gz | |
Muse reader: fix list item continuation parsing (#3747)
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -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 bc9da26cb..c1ea1354b 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -295,9 +295,9 @@ withListContext p = do listContinuation :: PandocMonad m => Int -> MuseParser m String listContinuation markerLength = try $ do - result <- many1 $ listLine markerLength blanks <- many1 blankline - return $ concat result ++ blanks + result <- many1 $ listLine markerLength + return $ blanks ++ concat result listStart :: PandocMonad m => MuseParser m Int -> MuseParser m Int listStart marker = try $ do |