@@ -488,8 +488,8 @@ gridTableWith block tableCaption headless =
488 tableWith (gridTableHeader headless block) (gridTableRow block) (gridTableSep '-') gridTableFooter tableCaption
488 tableWith (gridTableHeader headless block) (gridTableRow block) (gridTableSep '-') gridTableFooter tableCaption
490gridTableSplitLine :: [Int] -> String -> [String]
490gridTableSplitLine :: [Int] -> String -> [String]
491−gridTableSplitLine indices line =
491+gridTableSplitLine indices line = map removeFinalBar $ tail $
492− map removeFinalBar $ tail $ splitByIndices (init indices) line
492+ splitByIndices (init indices) $ removeTrailingSpace line
494gridPart :: Char -> GenParser Char st (Int, Int)
494gridPart :: Char -> GenParser Char st (Int, Int)
495gridPart ch = do
495gridPart ch = do
@@ -501,8 +501,8 @@ gridDashedLines :: Char -> GenParser Char st [(Int,Int)]
501gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) >>~ blankline
501gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) >>~ blankline
503removeFinalBar :: String -> String
503removeFinalBar :: String -> String
504−removeFinalBar = reverse . dropWhile (=='|') . dropWhile (`elem` " \t") .
504+removeFinalBar =
505− reverse
505+ reverse . dropWhile (`elem` " \t") . dropWhile (=='|') . reverse
507-- | Separator between rows of grid table.
507-- | Separator between rows of grid table.
508gridTableSep :: Char -> GenParser Char ParserState Char
508gridTableSep :: Char -> GenParser Char ParserState Char
@@ -539,7 +539,7 @@ gridTableRawLine :: [Int] -> GenParser Char ParserState [String]
539gridTableRawLine indices = do
539gridTableRawLine indices = do
541 line <- many1Till anyChar newline
541 line <- many1Till anyChar newline
542− return (gridTableSplitLine indices $ removeTrailingSpace line)
542+ return (gridTableSplitLine indices line)
544-- | Parse row of grid table.
544-- | Parse row of grid table.
545gridTableRow :: GenParser Char ParserState Block
545gridTableRow :: GenParser Char ParserState Block