6837.md

```
% pandoc -t markdown --markdown-headings=setext
## Hi

### Ok
^D
Hi
--

### Ok
```

```
% pandoc -t markdown+lhs
# Hi
^D
2> [WARNING] Rendering heading 'Hi' as a paragraph.
2>   ATX headings cannot be used in literate Haskell, because '#' is not
2>   allowed in column 1. Consider using --markdown-headings=setext.
Hi
```

```
% pandoc -t markdown --markdown-headings=atx
Hi
--
^D
## Hi
```