@@ -233,10 +233,13 @@ blockToMarkdown _ HorizontalRule =
233233blockToMarkdown opts (Header level inlines) = do
234234 contents <- inlineListToMarkdown opts inlines
235235 st <- get
236+ let setext = writerSetextHeaders opts
236237 return $ case level of
237− 1 -> contents <> cr <> text (replicate (offset contents) '=') <>
238+ 1 | setext ->
239+ contents <> cr <> text (replicate (offset contents) '=') <>
238240 blankline
239− 2 -> contents <> cr <> text (replicate (offset contents) '-') <>
241+ 2 | setext ->
242+ contents <> cr <> text (replicate (offset contents) '-') <>
240243 blankline
241244 -- ghc interprets '#' characters in column 1 as linenum specifiers.
242245 _ | stPlain st || writerLiterateHaskell opts ->