@@ -60,7 +60,7 @@ sendResponse settings ii req conn restore reqidxhdr (ResponseFile s0 hs0 path mp
6060 Just part -> return (False, fromIntegral $ filePartByteCount part)
6161 Nothing -> (False, ) . fromIntegral . P.fileSize
6262 <$> P.getFileStatus path
63− let (s, addRange, beg, end) =
63+ let (s, addRange, beg, len) =
6464 case mpart0 of
6565 Just part -> (s0, id, filePartOffset part, filePartByteCount part)
6666 Nothing -> case reqidxhdr ! idxRange >>= parseByteRanges >>= listToMaybe of
@@ -72,8 +72,8 @@ sendResponse settings ii req conn restore reqidxhdr (ResponseFile s0 hs0 path mp
7272 _ -> (s0, id, 0, cl)
7373 hs'
7474 | hadLength = hs
75− | otherwise = addLength end hs
76− return (s, addRange hs', beg, end)
75+ | otherwise = addLength len hs
76+ return (s, addRange hs', beg, len)
7777
7878 rangeRes cl from to = (H.status206, (("Content-Range", rangeHeader cl from to):), from, to - from + 1)
7979
@@ -85,10 +85,10 @@ sendResponse settings ii req conn restore reqidxhdr (ResponseFile s0 hs0 path mp
8585 ( '/'
8686 : showInt total ""))
8787
88− sendResponse' (Right (s, lengthyHeaders, beg, end))
88+ sendResponse' (Right (s, lengthyHeaders, beg, len))
8989 | hasBody s req = liftIO $ do
9090 lheader <- composeHeader settings version s lengthyHeaders
91− connSendFile conn path beg end (T.tickle th) [lheader]
91+ connSendFile conn path beg len (T.tickle th) [lheader]
9292 T.tickle th
9393 return isPersist
9494 | otherwise = liftIO $ do