@@ -1078,7 +1078,9 @@ dashedLine :: Monad m => Char
1078dashedLine ch = do
1078dashedLine ch = do
1079 dashes <- many1 (char ch)
1079 dashes <- many1 (char ch)
1080 sp <- many spaceChar
1080 sp <- many spaceChar
1081− return (length dashes, length $ dashes ++ sp)
1081+ let lengthDashes = length dashes
1082+ lengthSp = length sp
1083+ return (lengthDashes, lengthDashes + lengthSp)
1083-- Parse a table header with dashed lines of '-' preceded by
1085-- Parse a table header with dashed lines of '-' preceded by
1084-- one (or zero) line of text.
1086-- one (or zero) line of text.
@@ -1231,7 +1233,8 @@ gridPart :: Monad m => Char -> ParserT [Char] st m (Int, Int)
1231gridPart ch = do
1233gridPart ch = do
1232 dashes <- many1 (char ch)
1234 dashes <- many1 (char ch)
1233 char '+'
1235 char '+'
1234− return (length dashes, length dashes + 1)
1236+ let lengthDashes = length dashes
1237+ return (lengthDashes, lengthDashes + 1)
1236gridDashedLines :: Monad m => Char -> ParserT [Char] st m [(Int,Int)]
1239gridDashedLines :: Monad m => Char -> ParserT [Char] st m [(Int,Int)]
1237gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) <* blankline
1240gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) <* blankline