From 7af45f78d12537c1bd5a2cac80bae0e18dc0961f Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 5 Nov 2012 08:16:15 -0800
Subject: [PATCH] Textile reader:  Allow newlines before pipes in table.

Closes #654.
---
 src/Text/Pandoc/Readers/Textile.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index da5d8bee8..263c863ab 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -310,7 +310,8 @@ tableCell = do
 
 -- | A table row is made of many table cells
 tableRow :: Parser [Char] ParserState [TableCell]
-tableRow = try $ ( char '|' *> (endBy1 tableCell (char '|')) <* newline)
+tableRow = try $ ( char '|' *>
+  (endBy1 tableCell (optional blankline *> char '|')) <* newline)
 
 -- | Many table rows
 tableRows :: Parser [Char] ParserState [[TableCell]]