Org reader: allow for case of :minlevel == 0.

See #5190.
2019-01-07 20:33:45 -08:00 · 2019-01-07 20:33:45 -08:00 · 710a22e5ac
commit 710a22e5ac
parent 9dbcf16161
1 changed files with 3 additions and 1 deletions
--- a/src/Text/Pandoc/Readers/Org/Blocks.hs
+++ b/src/Text/Pandoc/Readers/Org/Blocks.hs
@ -548,7 +548,9 @@ include = try $ do
  shiftHeader :: Int -> Block -> Block
  shiftHeader shift blk =
    case blk of
-      (Header lvl attr content) -> Header (lvl - shift) attr content
+      (Header lvl attr content)
+       | lvl - shift > 0  -> Header (lvl - shift) attr content
+       | otherwise        -> Para content
      _ -> blk

 rawExportLine :: PandocMonad m => OrgParser m Blocks