diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-01-27 21:36:45 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-27 21:36:45 +0100 |
commit | 5156a4fe3c2438eeb0caa4a85e8adfdbea94e59d (patch) | |
tree | a8ab96c235a0b59e40ddf737a20648eb6ae04946 /src/Text/Pandoc/Readers/RST.hs | |
parent | 56f74cb0abdcf991f26b7456ed69d99e1993d0ab (diff) | |
download | pandoc-5156a4fe3c2438eeb0caa4a85e8adfdbea94e59d.tar.gz |
Shared: rename compactify', compactify'DL -> compactify, compactifyDL.
Diffstat (limited to 'src/Text/Pandoc/Readers/RST.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 96b5c4a9d..c9868c11f 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -574,11 +574,11 @@ orderedList :: PandocMonad m => RSTParser m Blocks orderedList = try $ do (start, style, delim) <- lookAhead (anyOrderedListMarker <* spaceChar) items <- many1 (listItem (orderedListStart style delim)) - let items' = compactify' items + let items' = compactify items return $ B.orderedListWith (start, style, delim) items' bulletList :: PandocMonad m => RSTParser m Blocks -bulletList = B.bulletList . compactify' <$> many1 (listItem bulletListStart) +bulletList = B.bulletList . compactify <$> many1 (listItem bulletListStart) -- -- directive (e.g. comment, container, compound-paragraph) |