aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-02-08 22:34:26 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2019-02-08 22:34:26 -0800
commit5c8e12b64bc51542a208b11fb15fa1916bba5a42 (patch)
treeb555ce543f99651f6aebe694ab4cd0a37d1bad93 /src/Text
parent62c5d17d3f468214e308289cf26db09d56b19ec1 (diff)
downloadpandoc-5c8e12b64bc51542a208b11fb15fa1916bba5a42.tar.gz
Fix misleading code comment.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Shared.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 3c26c179a..b1ae9eeed 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -416,8 +416,7 @@ capitalize = walk go
go x = x
-- | Change final list item from @Para@ to @Plain@ if the list contains
--- no other @Para@ blocks. Like compactify, but operates on @Blocks@ rather
--- than @[Block]@.
+-- no other @Para@ blocks.
compactify :: [Blocks] -- ^ List of list items (each a list of blocks)
-> [Blocks]
compactify [] = []