diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 85f9fcbf0..f8ab8b8b9 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -169,12 +169,12 @@ header :: GenParser Char ParserState Block header = try $ do char '\\' subs <- many (try (string "sub")) - string "section" + base <- try (string "section" >> return 1) <|> (string "paragraph" >> return 4) optional (char '*') char '{' title' <- manyTill inline (char '}') spaces - return $ Header (length subs + 1) (normalizeSpaces title') + return $ Header (length subs + base) (normalizeSpaces title') -- -- hrule block |