@@ -279,11 +279,11 @@ sendRsp conn ii ver s0 hs0 (RspFile path mPart mRange isHead hook) = do
279279 connSendFile conn fid beg len hook' [lheader]
280280 return (Just s, Just len)
281281 | otherwise -> do
282− sendRsp conn ii ver H.status416
282+ sendRsp conn ii ver H.requestedRangeNotSatisfiable416
283283 (filter (\(k, _) -> k /= "content-length") hs)
284284 (RspBuilder mempty True)
285285 where
286− s2 = H.status404
286+ s2 = H.notFound404
287287 hs2 = replaceHeader H.hContentType "text/plain; charset=utf-8" hs0
288288 body = byteString "File not found"
289289 mfdc = fdCacher ii