@@ -913,7 +913,6 @@ pipeTable headless = tableWith (pipeTableHeader headless)
913913pipeTableHeader :: Bool -- ^ Headerless table
914914 -> Parser [Char] ParserState ([[Block]], [Alignment], [Int])
915915pipeTableHeader headless = do
916− scanForPipe
917916 try $ do
918917 heads <- if headless
919918 then return $ repeat []
@@ -965,7 +964,7 @@ table = try $ do
965964 Table _ aligns widths heads lines' <-
966965 multilineTable False <|> simpleTable True <|>
967966 simpleTable False <|> multilineTable True <|>
968− pipeTable False <|> pipeTable True <|>
967+ (scanForPipe >> (pipeTable False <|> pipeTable True)) <|>
969968 gridTable False <|> gridTable True <?> "table"
970969 caption <- if null frontCaption
971970 then option [] tableCaption