@@ -261,8 +261,7 @@ verseLines = do
261261verseTag :: PandocMonad m => MuseParser m (F Blocks)
262262verseTag = do
263263 (_, content) <- htmlElement "verse"
264− parsedContent <- parseFromString verseLines content
265− return parsedContent
264+ parseFromString verseLines content
266265
267266commentTag :: PandocMonad m => MuseParser m (F Blocks)
268267commentTag = parseHtmlContent "comment" anyChar >> return mempty
@@ -379,8 +378,8 @@ definitionListItem = try $ do
379378 pure $ do lineContent' <- lineContent
380379 pure (B.text term, [lineContent'])
381380 where
382− termParser = (many1 spaceChar) >> -- Initial space as required by Amusewiki, but not Emacs Muse
383− (many1Till anyChar $ lookAhead (void (try (spaceChar >> string "::")) <|> void newline))
381+ termParser = many1 spaceChar >> -- Initial space as required by Amusewiki, but not Emacs Muse
382+ many1Till anyChar (lookAhead (void (try (spaceChar >> string "::")) <|> void newline))
384383 endOfInput = try $ skipMany blankline >> skipSpaces >> eof
385384 twoBlankLines = try $ blankline >> skipMany1 blankline
386385 newDefinitionListItem = try $ void termParser