@@ -1287,11 +1287,9 @@ pipeBreak = try $ do
12871287
12881288pipeTable :: MarkdownParser ([Alignment], [Double], F [Blocks], F [[Blocks]])
12891289pipeTable = try $ do
1290− (heads,aligns) <- try ( pipeBreak >>= \als ->
1291− return (return $ replicate (length als) mempty, als))
1292− <|> ( pipeTableRow >>= \row -> pipeBreak >>= \als ->
1293−
1294− return (row, als) )
1290+ (heads,aligns) <- pipeTableRow >>= \row ->
1291+ pipeBreak >>= \als ->
1292+ return (row, als)
12951293 lines' <- sequence <$> many1 pipeTableRow
12961294 let widths = replicate (length aligns) 0.0
12971295 return $ (aligns, widths, heads, lines')