From a8122987fc3301bc6c0b799312cc2f676bec8042 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 16 Apr 2018 15:08:34 +0300
Subject: Muse reader: allow verse to be indented

Muse writer indents verse blocks in definition list more than necessary, so Muse reader should parse them.
---
 src/Text/Pandoc/Readers/Muse.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc/Readers/Muse.hs')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 1ba4ac343..98c1a9d55 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -558,6 +558,7 @@ blanklineVerseLine = try $ do
 -- | Parse a line block indicated by @\'>\'@ characters.
 lineBlock :: PandocMonad m => MuseParser m (F Blocks)
 lineBlock = try $ do
+  many spaceChar
   col <- sourceColumn <$> getPosition
   lns <- (blanklineVerseLine <|> lineVerseLine) `sepBy1'` try (indentWith (col - 1))
   return $ B.lineBlock <$> sequence lns
-- 
cgit v1.2.3