@@ -1333,6 +1333,8 @@ pipeBreak = try $ do
13331333
13341334pipeTable :: MarkdownParser ([Alignment], [Double], F [Blocks], F [[Blocks]])
13351335pipeTable = try $ do
1336+ nonindentSpaces
1337+ lookAhead nonspaceChar
13361338 (heads,aligns) <- (,) <$> pipeTableRow <*> pipeBreak
13371339 lines' <- sequence <$> many pipeTableRow
13381340 let widths = replicate (length aligns) 0.0
@@ -1346,7 +1348,7 @@ sepPipe = try $ do
13461348-- parse a row, also returning probable alignments for org-table cells
13471349pipeTableRow :: MarkdownParser (F [Blocks])
13481350pipeTableRow = do
1349− nonindentSpaces
1351+ skipMany spaceChar
13501352 openPipe <- (True <$ char '|') <|> return False
13511353 let cell = mconcat <$>
13521354 many (notFollowedBy (blankline <|> char '|') >> inline)