aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/ConTeXt.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 40cd721c6..871748e98 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -163,10 +163,8 @@ blockToConTeXt opts HorizontalRule = return $ text "\\thinrule\n"
blockToConTeXt opts (Header level lst) = do
contents <- inlineListToConTeXt opts lst
let base = if writerNumberSections opts then "section" else "subject"
- return $ if level > 0 && level <= 3
- then char '\\' <> text (concat (replicate (level - 1) "sub")) <>
- text base <> char '{' <> contents <> char '}' <> char '\n'
- else contents <> char '\n'
+ return $ char '\\' <> text (concat (replicate (level - 1) "sub")) <>
+ text base <> char '{' <> contents <> char '}' <> char '\n'
blockToConTeXt opts (Table caption aligns widths heads rows) = do
let colWidths = map printDecimal widths
let colDescriptor colWidth alignment = (case alignment of