aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-02-14 13:41:05 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-02-23 18:02:04 +0300
commit2eab8f465410db57a7df27631a83058f8f480d89 (patch)
treec38aaebf936dbacad75e8851133c04dec367e507 /src/Text/Pandoc/Readers
parente810a5cc009aba006ea10a00ed9ac0e308f08ca5 (diff)
downloadpandoc-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.hs3
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
--