@@ -432,7 +432,7 @@ listItemContents = do
432432 let col = sourceColumn pos - 1
433433 listItemContents' col
434434
435−listItem :: PandocMonad m => Int -> MuseParser m () -> MuseParser m (F Blocks)
435+listItem :: PandocMonad m => Int -> MuseParser m a -> MuseParser m (F Blocks)
436436listItem n p = try $ do
437437 optionMaybe blankline
438438 count n spaceChar
@@ -449,7 +449,7 @@ bulletList = try $ do
449449 char '-'
450450 void spaceChar <|> lookAhead eol
451451 first <- listItemContents
452− rest <- many $ listItem (col - 1) (void (char '-'))
452+ rest <- many $ listItem (col - 1) (char '-')
453453 return $ B.bulletList <$> sequence (first : rest)
454454
455455orderedList :: PandocMonad m => MuseParser m (F Blocks)
@@ -463,7 +463,7 @@ orderedList = try $ do
463463 guard $ delim == Period
464464 void spaceChar <|> lookAhead eol
465465 first <- listItemContents
466− rest <- many $ listItem (col - 1) (void (orderedListMarker style delim))
466+ rest <- many $ listItem (col - 1) (orderedListMarker style delim)
467467 return $ B.orderedListWith p <$> sequence (first : rest)
468468
469469definitionListItem :: PandocMonad m => Int -> MuseParser m (F (Inlines, [Blocks]))