@@ -1078,7 +1078,9 @@ dashedLine :: Monad m => Char
10781078dashedLine ch = do
10791079 dashes <- many1 (char ch)
10801080 sp <- many spaceChar
1081− return (length dashes, length $ dashes ++ sp)
1081+ let lengthDashes = length dashes
1082+ lengthSp = length sp
1083+ return (lengthDashes, lengthDashes + lengthSp)
10821084
10831085-- Parse a table header with dashed lines of '-' preceded by
10841086-- one (or zero) line of text.
@@ -1231,7 +1233,8 @@ gridPart :: Monad m => Char -> ParserT [Char] st m (Int, Int)
12311233gridPart ch = do
12321234 dashes <- many1 (char ch)
12331235 char '+'
1234− return (length dashes, length dashes + 1)
1236+ let lengthDashes = length dashes
1237+ return (lengthDashes, lengthDashes + 1)
12351238
12361239gridDashedLines :: Monad m => Char -> ParserT [Char] st m [(Int,Int)]
12371240gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) <* blankline