Org reader: allow for case of :minlevel == 0.
See #5190.
commit710a22e5ac5c9e94cf98bd2a496359fe1573fb97
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 7 Jan 2019, 20:33 (8 years ago)
parent9dbcf16
src/Text/Pandoc/Readers/Org/Blocks.hs+3−1
@@ -548,7 +548,9 @@ include = try $ do
548548 shiftHeader :: Int -> Block -> Block
549549 shiftHeader shift blk =
550550 case blk of
551− (Header lvl attr content) -> Header (lvl - shift) attr content
551+ (Header lvl attr content)
552+ | lvl - shift > 0 -> Header (lvl - shift) attr content
553+ | otherwise -> Para content
552554 _ -> blk
553555
554556rawExportLine :: PandocMonad m => OrgParser m Blocks