@@ -1292,7 +1292,7 @@ pipeBreak = try $ do
1292pipeTable :: MarkdownParser ([Alignment], [Double], [Blocks], [[Blocks]])
1292pipeTable :: MarkdownParser ([Alignment], [Double], [Blocks], [[Blocks]])
1293pipeTable = try $ do
1293pipeTable = try $ do
1294 (heads,aligns) <- (,) <$> pipeTableRow <*> pipeBreak
1294 (heads,aligns) <- (,) <$> pipeTableRow <*> pipeBreak
1295− lines' <- sequence <$> many1 pipeTableRow
1295+ lines' <- many1 pipeTableRow
1296 let widths = replicate (length aligns) 0.0
1296 let widths = replicate (length aligns) 0.0
1297 return (aligns, widths, heads, lines')
1297 return (aligns, widths, heads, lines')