@@ -144,14 +144,14 @@ sendResponse settings conn ii req reqidxhdr src response = do
144144 -- and status, the response to HEAD is processed here.
145145 --
146146 -- See definition of rsp below for proper body stripping.
147− (ms, mlen) <- sendRsp conn ii req ver s hs rsp
147+ (ms, mlen) <- sendRsp conn ii ver s hs rsp
148148 case ms of
149149 Nothing -> return ()
150150 Just realStatus -> logger req realStatus mlen
151151 T.tickle th
152152 return ret
153153 else do
154− _ <- sendRsp conn ii req ver s hs RspNoBody
154+ _ <- sendRsp conn ii ver s hs RspNoBody
155155 logger req s Nothing
156156 T.tickle th
157157 return isPersist
@@ -221,7 +221,6 @@ data Rsp = RspNoBody
221221
222222sendRsp :: Connection
223223 -> InternalInfo
224− -> Request
225224 -> H.HttpVersion
226225 -> H.Status
227226 -> H.ResponseHeaders
@@ -230,7 +229,7 @@ sendRsp :: Connection
230229
231230----------------------------------------------------------------
232231
233−sendRsp conn _ _ ver s hs RspNoBody = do
232+sendRsp conn _ ver s hs RspNoBody = do
234233 -- Not adding Content-Length.
235234 -- User agents treats it as Content-Length: 0.
236235 composeHeader ver s hs >>= connSendAll conn
@@ -238,7 +237,7 @@ sendRsp conn _ _ ver s hs RspNoBody = do
238237
239238----------------------------------------------------------------
240239
241−sendRsp conn _ _ ver s hs (RspBuilder body needsChunked) = do
240+sendRsp conn _ ver s hs (RspBuilder body needsChunked) = do
242241 header <- composeHeaderBuilder ver s hs needsChunked
243242 let hdrBdy
244243 | needsChunked = header <> chunkedTransferEncoding body
@@ -251,7 +250,7 @@ sendRsp conn _ _ ver s hs (RspBuilder body needsChunked) = do
251250
252251----------------------------------------------------------------
253252
254−sendRsp conn _ _ ver s hs (RspStream streamingBody needsChunked th) = do
253+sendRsp conn _ ver s hs (RspStream streamingBody needsChunked th) = do
255254 header <- composeHeaderBuilder ver s hs needsChunked
256255 (recv, finish) <- newBlazeRecv $ reuseBufferStrategy
257256 $ toBuilderBuffer (connWriteBuffer conn) (connBufferSize conn)
@@ -275,7 +274,7 @@ sendRsp conn _ _ ver s hs (RspStream streamingBody needsChunked th) = do
275274
276275----------------------------------------------------------------
277276
278−sendRsp conn _ _ _ _ _ (RspRaw withApp src tickle) = do
277+sendRsp conn _ _ _ _ (RspRaw withApp src tickle) = do
279278 withApp recv send
280279 return (Nothing, Nothing)
281280 where
@@ -289,8 +288,8 @@ sendRsp conn _ _ _ _ _ (RspRaw withApp src tickle) = do
289288
290289-- Sophisticated WAI applications.
291290-- We respect s0. s0 MUST be a proper value.
292−sendRsp conn ii req ver s0 hs0 (RspFile path (Just part) _ isHead hook) =
293− sendRspFile2XX conn ii req ver s0 hs path beg len isHead hook
291+sendRsp conn ii ver s0 hs0 (RspFile path (Just part) _ isHead hook) =
292+ sendRspFile2XX conn ii ver s0 hs path beg len isHead hook
294293 where
295294 beg = filePartOffset part
296295 len = filePartByteCount part
@@ -300,23 +299,22 @@ sendRsp conn ii req ver s0 hs0 (RspFile path (Just part) _ isHead hook) =
300299
301300-- Simple WAI applications.
302301-- Status is ignored
303−sendRsp conn ii req ver _ hs0 (RspFile path Nothing idxhdr isHead hook) = do
302+sendRsp conn ii ver _ hs0 (RspFile path Nothing idxhdr isHead hook) = do
304303 efinfo <- E.try $ getFileInfo ii path
305304 case efinfo of
306305 Left (_ex :: E.IOException) ->
307306#ifdef WARP_DEBUG
308307 print _ex >>
309308#endif
310− sendRspFile404 conn ii req ver hs0
309+ sendRspFile404 conn ii ver hs0
311310 Right finfo -> case conditionalRequest finfo hs0 idxhdr of
312− WithoutBody s -> sendRsp conn ii req ver s hs0 RspNoBody
313− WithBody s hs beg len -> sendRspFile2XX conn ii req ver s hs path beg len isHead hook
311+ WithoutBody s -> sendRsp conn ii ver s hs0 RspNoBody
312+ WithBody s hs beg len -> sendRspFile2XX conn ii ver s hs path beg len isHead hook
314313
315314----------------------------------------------------------------
316315
317316sendRspFile2XX :: Connection
318317 -> InternalInfo
319− -> Request
320318 -> H.HttpVersion
321319 -> H.Status
322320 -> H.ResponseHeaders
@@ -326,8 +324,8 @@ sendRspFile2XX :: Connection
326324 -> Bool
327325 -> IO ()
328326 -> IO (Maybe H.Status, Maybe Integer)
329−sendRspFile2XX conn ii req ver s hs path beg len isHead hook
330− | isHead = sendRsp conn ii req ver s hs RspNoBody
327+sendRspFile2XX conn ii ver s hs path beg len isHead hook
328+ | isHead = sendRsp conn ii ver s hs RspNoBody
331329 | otherwise = do
332330 lheader <- composeHeader ver s hs
333331 (mfd, fresher) <- getFd ii path
@@ -338,11 +336,10 @@ sendRspFile2XX conn ii req ver s hs path beg len isHead hook
338336
339337sendRspFile404 :: Connection
340338 -> InternalInfo
341− -> Request
342339 -> H.HttpVersion
343340 -> H.ResponseHeaders
344341 -> IO (Maybe H.Status, Maybe Integer)
345−sendRspFile404 conn ii req ver hs0 = sendRsp conn ii req ver s hs (RspBuilder body True)
342+sendRspFile404 conn ii ver hs0 = sendRsp conn ii ver s hs (RspBuilder body True)
346343 where
347344 s = H.notFound404
348345 hs = replaceHeader H.hContentType "text/plain; charset=utf-8" hs0