diff options
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index eedd7d71a..ee6c19a4c 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -63,6 +63,7 @@ module Text.Pandoc.Shared ( compactify, Element (..), hierarchicalize, + isHeaderBlock, -- * Writer options WriterOptions (..), defaultWriterOptions, @@ -390,6 +391,11 @@ hierarchicalize (block:rest) = (hierarchicalize rest') x -> (Blk x):(hierarchicalize rest) +-- | True if block is a Header block. +isHeaderBlock :: Block -> Bool +isHeaderBlock (Header _ _) = True +isHeaderBlock _ = False + -- | Options for writers data WriterOptions = WriterOptions { writerStandalone :: Bool -- ^ Include header and footer |