opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 15:44:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

Small improvements in latex table parser.

Browse Source
This commit is contained in:
John MacFarlane
2012-02-04 11:50:06 -08:00
parent 75485c2f11
commit ade08f6330
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/LaTeX.hs
+2 -3
View File
@@ -781,11 +781,10 @@ parseTableRow :: Int -- ^ number of columns
parseTableRow cols = try $ do
let amp = try $ spaces *> string "&"
let tableCellInline = notFollowedBy (amp <|> controlSeq "\\") >> inline
cells' <- sepBy (spaces *> ((plain . trimInlines . mconcat) <$>
many tableCellInline)) amp
cells' <- sepBy ((plain . trimInlines . mconcat) <$> many tableCellInline) amp
guard $ length cells' == cols
spaces
try $ controlSeq "\\" <|> lookAhead (try $ controlSeq "end" >> string "{tabular}")
optional $ controlSeq "\\"
return cells'
parseTableHeader :: Int -- ^ number of columns