From eaebc5fd19ac7f035805ddfec90ebeca17cd6561 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 21 Jan 2018 02:32:26 +0300
Subject: Muse reader: make listItem generic

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

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 752461e6a..daebe81aa 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -432,7 +432,7 @@ listItemContents = do
   let col = sourceColumn pos - 1
   listItemContents' col
 
-listItem :: PandocMonad m => Int -> MuseParser m () -> MuseParser m (F Blocks)
+listItem :: PandocMonad m => Int -> MuseParser m a -> MuseParser m (F Blocks)
 listItem n p = try $ do
   optionMaybe blankline
   count n spaceChar
@@ -449,7 +449,7 @@ bulletList = try $ do
   char '-'
   void spaceChar <|> lookAhead eol
   first <- listItemContents
-  rest <- many $ listItem (col - 1) (void (char '-'))
+  rest <- many $ listItem (col - 1) (char '-')
   return $ B.bulletList <$> sequence (first : rest)
 
 orderedList :: PandocMonad m => MuseParser m (F Blocks)
@@ -463,7 +463,7 @@ orderedList = try $ do
   guard $ delim == Period
   void spaceChar <|> lookAhead eol
   first <- listItemContents
-  rest <- many $ listItem (col - 1) (void (orderedListMarker style delim))
+  rest <- many $ listItem (col - 1) (orderedListMarker style delim)
   return $ B.orderedListWith p <$> sequence (first : rest)
 
 definitionListItem :: PandocMonad m => Int -> MuseParser m (F (Inlines, [Blocks]))
-- 
cgit v1.2.3