From 75a2a7ba696af883cc38f1817c93de660c8f1d67 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 23 Mar 2015 20:26:56 -0700
Subject: Allow pipe tables with header but no body.

Closes #2017.
---
 src/Text/Pandoc/Readers/Markdown.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 638c8c9cf..55ec256f8 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1292,7 +1292,7 @@ pipeBreak = try $ do
 pipeTable :: MarkdownParser ([Alignment], [Double], [Blocks], [[Blocks]])
 pipeTable = try $ do
   (heads,aligns) <- (,) <$> pipeTableRow <*> pipeBreak
-  lines' <-  many1 pipeTableRow
+  lines' <-  many pipeTableRow
   let widths = replicate (length aligns) 0.0
   return (aligns, widths, heads, lines')
 
-- 
cgit v1.2.3