@@ -85,7 +85,7 @@ fileRange s0 hs0 path mPart mRange =
8585
8686checkPartRange :: Integer -> Maybe FilePart -> Maybe HeaderValue
8787 -> (Integer, Integer, Integer, Bool)
88−checkPartRange fileSize mPart mRange = checkPart mPart mRange
88+checkPartRange fileSize = checkPart
8989 where
9090 checkPart Nothing Nothing = (0, fileSize - 1, fileSize, True)
9191 checkPart Nothing (Just range) = case parseByteRanges range >>= listToMaybe of
@@ -191,10 +191,10 @@ sendResponse conn ii restore req reqidxhdr leftover' response = do
191191 ResponseSource _ _ fb -> RspSource fb needsChunked th
192192 ResponseRaw raw _ -> RspRaw raw leftover' (T.tickle th)
193193 ret = case response of
194− ResponseFile _ _ _ _ -> isPersist
195− ResponseBuilder _ _ _ -> isKeepAlive
196− ResponseSource _ _ _ -> isKeepAlive
197− ResponseRaw _ _ -> False
194+ ResponseFile {} -> isPersist
195+ ResponseBuilder {} -> isKeepAlive
196+ ResponseSource {} -> isKeepAlive
197+ ResponseRaw {} -> False
198198
199199----------------------------------------------------------------
200200