From 264a25e5e98c252dba87b63dceda6539e93461aa Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 28 Jan 2018 22:09:47 +0300
Subject: Muse reader: parse verse tag contents without parseFromString

---
 src/Text/Pandoc/Readers/Muse.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 27d5922a0..97f8a963f 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -304,10 +304,9 @@ divTag = do
 
 verseLine :: PandocMonad m => MuseParser m (F Inlines)
 verseLine = do
-  line <- anyLine <|> many1Till anyChar eof
-  let (white, rest) = span (== ' ') line
-  let s = replicate (length white) '\160' ++ rest
-  parseFromString' (trimInlinesF . mconcat <$> many inline) s
+  indent <- (B.str <$> many1 (char ' ' >> pure '\160')) <|> (pure mempty)
+  rest <- manyTill (choice inlineList) newline
+  return $ trimInlinesF $ mconcat (pure indent : rest)
 
 verseLines :: PandocMonad m => MuseParser m (F Blocks)
 verseLines = do
-- 
cgit v1.2.3