@@ -179,7 +179,7 @@ sendResponse :: ByteString -- ^ default server value
179179 -> IO Bool -- ^ Returing True if the connection is persistent.
180180sendResponse defServer conn ii req reqidxhdr src response = do
181181 hs <- addServerAndDate hs0
182− if hasBody s req then do
182+ if hasBody s then do
183183 -- HEAD comes here even if it does not have body.
184184 sendRsp conn ver s hs rsp
185185 T.tickle th
@@ -362,13 +362,12 @@ infoFromResponse rspidxhdr (isPersist,isChunked) = (isKeepAlive, needsChunked)
362362
363363----------------------------------------------------------------
364364
365−hasBody :: H.Status -> Request -> Bool
366−hasBody s req = sc /= 204
367− && sc /= 304
368− && sc >= 200
365+hasBody :: H.Status -> Bool
366+hasBody s = sc /= 204
367+ && sc /= 304
368+ && sc >= 200
369369 where
370370 sc = H.statusCode s
371− method = requestMethod req
372371
373372----------------------------------------------------------------
374373