diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-14 13:41:05 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-23 18:02:04 +0300 |
| commit | 2eab8f465410db57a7df27631a83058f8f480d89 (patch) | |
| tree | c38aaebf936dbacad75e8851133c04dec367e507 /src/Text/Pandoc/Readers | |
| parent | e810a5cc009aba006ea10a00ed9ac0e308f08ca5 (diff) | |
| download | pandoc-2eab8f465410db57a7df27631a83058f8f480d89.tar.gz | |
Muse reader: improve verse parsing
Now verse marked up with ">" (in contrast to <verse> tag) can be placed
inside lists.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index e89a89b8f..1fb37aa16 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -521,7 +521,8 @@ blanklineVerseLine = try $ do lineBlock :: PandocMonad m => MuseParser m (F Blocks) lineBlock = try $ do - lns <- many1 (blanklineVerseLine <|> lineVerseLine) + col <- sourceColumn <$> getPosition + lns <- (blanklineVerseLine <|> lineVerseLine) `sepBy1'` try (indentWith (col - 1)) return $ B.lineBlock <$> sequence lns -- |