@@ -87,8 +87,10 @@ parseOrg = do
8787-- | Drop COMMENT headers and the document tree below those headers.
8888dropCommentTrees :: [Block] -> [Block]
8989dropCommentTrees [] = []
90−dropCommentTrees blks@(b:bs) =
91− maybe blks (flip dropUntilHeaderAboveLevel bs) $ commentHeaderLevel b
90+dropCommentTrees (b:bs) =
91+ maybe (b:dropCommentTrees bs)
92+ (dropCommentTrees . flip dropUntilHeaderAboveLevel bs)
93+ (commentHeaderLevel b)
9294
9395-- | Return the level of a header starting a comment or :noexport: tree and
9496-- Nothing otherwise.