From 2eab8f465410db57a7df27631a83058f8f480d89 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 14 Feb 2018 13:41:05 +0300
Subject: Muse reader: improve verse parsing

Now verse marked up with ">" (in contrast to <verse> tag) can be placed
inside lists.
---
 src/Text/Pandoc/Readers/Muse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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
 
 --
-- 
cgit v1.2.3