bug fix of hasBody.

singpolyma · Sep 19, 2012 · 41f01b1 · 41f01b1
1 parent d9b0558
commit 41f01b1
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/warp/Network/Wai/Handler/Warp/Response.hs b/warp/Network/Wai/Handler/Warp/Response.hs
@@ -173,10 +173,13 @@ checkLength = lookup H.hContentLength
 ----------------------------------------------------------------
 
 hasBody :: H.Status -> Request -> Bool
-hasBody s req = s /= H.Status 204 ""
-             && s /= H.status304
-             && H.statusCode s >= 200
-             && requestMethod req /= H.methodHead
+hasBody s req = sc /= 204
+             && sc /= 304
+             && sc >= 200
+             && method /= H.methodHead
+  where
+    sc = H.statusCode s
+    method = requestMethod req
 
 ----------------------------------------------------------------