git.iko.soy/typeable/wai
on master help sign in
bug fix of hasBody.
41f01b1Kazu Yamamoto
warp/Network/Wai/Handler/Warp/Response.hs+7−4
compare with master
unifiedsplit
@@ -173,10 +173,13 @@ checkLength = lookup H.hContentLength
173----------------------------------------------------------------
173----------------------------------------------------------------
174
174
175hasBody :: H.Status -> Request -> Bool
175hasBody :: H.Status -> Request -> Bool
176−hasBody s req = s /= H.Status 204 ""
176+hasBody s req = sc /= 204
177− && s /= H.status304
177+ && sc /= 304
178− && H.statusCode s >= 200
178+ && sc >= 200
179− && requestMethod req /= H.methodHead
179+ && method /= H.methodHead
180+ where
181+ sc = H.statusCode s
182+ method = requestMethod req
180
183
181----------------------------------------------------------------
184----------------------------------------------------------------
182
185