@@ -85,7 +85,7 @@ fileRange s0 hs0 path mPart mRange =
86checkPartRange :: Integer -> Maybe FilePart -> Maybe HeaderValue
86checkPartRange :: Integer -> Maybe FilePart -> Maybe HeaderValue
87 -> (Integer, Integer, Integer, Bool)
87 -> (Integer, Integer, Integer, Bool)
88−checkPartRange fileSize mPart mRange = checkPart mPart mRange
88+checkPartRange fileSize = checkPart
90 checkPart Nothing Nothing = (0, fileSize - 1, fileSize, True)
90 checkPart Nothing Nothing = (0, fileSize - 1, fileSize, True)
91 checkPart Nothing (Just range) = case parseByteRanges range >>= listToMaybe of
91 checkPart Nothing (Just range) = case parseByteRanges range >>= listToMaybe of
@@ -191,10 +191,10 @@ sendResponse conn ii restore req reqidxhdr leftover' response = do
191 ResponseSource _ _ fb -> RspSource fb needsChunked th
191 ResponseSource _ _ fb -> RspSource fb needsChunked th
192 ResponseRaw raw _ -> RspRaw raw leftover' (T.tickle th)
192 ResponseRaw raw _ -> RspRaw raw leftover' (T.tickle th)
193 ret = case response of
193 ret = case response of
194− ResponseFile _ _ _ _ -> isPersist
194+ ResponseFile {} -> isPersist
195− ResponseBuilder _ _ _ -> isKeepAlive
195+ ResponseBuilder {} -> isKeepAlive
196− ResponseSource _ _ _ -> isKeepAlive
196+ ResponseSource {} -> isKeepAlive
197− ResponseRaw _ _ -> False
197+ ResponseRaw {} -> False
199----------------------------------------------------------------
199----------------------------------------------------------------