Removed unneeded blanklines in pipeTable parser.

This commit is contained in:
John MacFarlane 2013-02-02 19:07:11 -08:00
parent a6c167125f
commit e148fd7547

View file

@ -1142,7 +1142,6 @@ pipeTable = try $ do
return (row, als) )
lines' <- sequence <$> many1 pipeTableRow
blanklines
let widths = replicate (length aligns) 0.0
return $ (aligns, widths, heads, lines')