@@ -304,10 +304,9 @@ divTag = do
304304
305305verseLine :: PandocMonad m => MuseParser m (F Inlines)
306306verseLine = do
307− line <- anyLine <|> many1Till anyChar eof
308− let (white, rest) = span (== ' ') line
309− let s = replicate (length white) '\160' ++ rest
310− parseFromString' (trimInlinesF . mconcat <$> many inline) s
307+ indent <- (B.str <$> many1 (char ' ' >> pure '\160')) <|> (pure mempty)
308+ rest <- manyTill (choice inlineList) newline
309+ return $ trimInlinesF $ mconcat (pure indent : rest)
311310
312311verseLines :: PandocMonad m => MuseParser m (F Blocks)
313312verseLines = do