From 145710c4c3951b095206c59256ac0294b23ca76d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 7 Oct 2018 12:37:08 -0700
Subject: [PATCH] RST reader: don't allow single-dash separator in headerless
table.
Closes #4382.
---
src/Text/Pandoc/Readers/RST.hs | 4 +++-
test/command/4382.md | 10 ++++++++++
2 files changed, 13 insertions(+), 1 deletion(-)
create mode 100644 test/command/4382.md
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 1c9a06601..1938ca171 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -1269,7 +1269,9 @@ simpleTableHeader headless = try $ do
rawContent <- if headless
then return ""
else simpleTableSep '=' >> anyLine
- dashes <- simpleDashedLines '=' <|> simpleDashedLines '-'
+ dashes <- if headless
+ then simpleDashedLines '='
+ else simpleDashedLines '=' <|> simpleDashedLines '-'
newline
let lines' = map snd dashes
let indices = scanl (+) 0 lines'
diff --git a/test/command/4382.md b/test/command/4382.md
new file mode 100644
index 000000000..4a840489f
--- /dev/null
+++ b/test/command/4382.md
@@ -0,0 +1,10 @@
+```
+% pandoc -f rst -t native
+-
+
+=====
+^D
+[BulletList
+ [[]]
+,HorizontalRule]
+```