diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-21 02:32:26 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-21 03:26:54 +0300 |
| commit | eaebc5fd19ac7f035805ddfec90ebeca17cd6561 (patch) | |
| tree | 8ba1e93d299dc3844457675dd460e7f5df679382 /src | |
| parent | 5e106ce0b84e3e720f7c6ef19b1e29664987c862 (diff) | |
Muse reader: make listItem generic
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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])) |