@@ -429,11 +429,11 @@ headerLevel :: PandocMonad m => Text -> TagParser m Int
429headerLevel tagtype =
429headerLevel tagtype =
430 case safeRead (T.unpack (T.drop 1 tagtype)) of
430 case safeRead (T.unpack (T.drop 1 tagtype)) of
431 Just level ->
431 Just level ->
432− try (do
432+-- try (do
433− guardEnabled Ext_epub_html_exts
433+-- guardEnabled Ext_epub_html_exts
434− asks inChapter >>= guard
434+-- asks inChapter >>= guard
435− return (level - 1))
435+-- return (level - 1))
437 return level
437 return level
438 Nothing -> fail "Could not retrieve header level"
438 Nothing -> fail "Could not retrieve header level"