@@ -302,17 +302,17 @@ divTag = do
302302 (attrs, content) <- parseHtmlContentWithAttrs "div" parseBlock
303303 return $ B.divWith attrs <$> mconcat content
304304
305−verseLine :: PandocMonad m => MuseParser m String
305+verseLine :: PandocMonad m => MuseParser m (F Inlines)
306306verseLine = do
307307 line <- anyLine <|> many1Till anyChar eof
308308 let (white, rest) = span (== ' ') line
309− return $ replicate (length white) '\160' ++ rest
309+ let s = replicate (length white) '\160' ++ rest
310+ parseFromString' (trimInlinesF . mconcat <$> many inline) s
310311
311312verseLines :: PandocMonad m => MuseParser m (F Blocks)
312313verseLines = do
313314 lns <- many verseLine
314− lns' <- mapM (parseFromString' (trimInlinesF . mconcat <$> many inline)) lns
315− return $ B.lineBlock <$> sequence lns'
315+ return $ B.lineBlock <$> sequence lns
316316
317317verseTag :: PandocMonad m => MuseParser m (F Blocks)
318318verseTag = do