git.iko.soy/typeable/wai
on master help sign in
Merge pull request #7 from kazu-yamamoto/master

hasBody enhancement

commitdf84e29ac44f22eb9a2ba6262c192a9626fd9718 authorMichael Snoyman <michael@snoyman.com> dateMon 22 Aug 2011, 12:03 (15 years ago) parent0c988a526308f2
1 file changed+2−1
compare with master
unifiedsplit
warp/Network/Wai/Handler/Warp.hs+2−1
warp/Network/Wai/Handler/Warp.hs+2−1
@@ -336,7 +336,8 @@ isChunked :: H.HttpVersion -> Bool
336336isChunked = (==) H.http11
337337
338338hasBody :: H.Status -> Request -> Bool
339−hasBody s req = s /= (H.Status 204 "") && requestMethod req /= "HEAD"
339+hasBody s req = s /= (H.Status 204 "") && s /= H.status304 &&
340+ H.statusCode s >= 200 && requestMethod req /= "HEAD"
340341
341342sendResponse :: T.Handle
342343 -> Request -> Socket -> Response -> IO Bool