@@ -163,10 +163,8 @@ blockToConTeXt opts HorizontalRule = return $ text "\\thinrule\n"
163163blockToConTeXt opts (Header level lst) = do
164164 contents <- inlineListToConTeXt opts lst
165165 let base = if writerNumberSections opts then "section" else "subject"
166− return $ if level > 0 && level <= 3
167− then char '\\' <> text (concat (replicate (level - 1) "sub")) <>
168− text base <> char '{' <> contents <> char '}' <> char '\n'
169− else contents <> char '\n'
166+ return $ char '\\' <> text (concat (replicate (level - 1) "sub")) <>
167+ text base <> char '{' <> contents <> char '}' <> char '\n'
170168blockToConTeXt opts (Table caption aligns widths heads rows) = do
171169 let colWidths = map printDecimal widths
172170 let colDescriptor colWidth alignment = (case alignment of