Added new example.

[Lucu.git] / Network / HTTP / Lucu / Response.hs

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 573b98d21e8341d0467cbd3bd36b32ccc182f781..b1ad3d8df4a914b1a7900e4d7463a19902421863 100644 (file)
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -135,9 +135,8 @@ isServerError = doesMeet (>= 500)
 
 
 doesMeet :: (Int -> Bool) -> StatusCode -> Bool
-doesMeet p sc = let (# num, _ #) = statusCode sc
-                in
-                  p num
+doesMeet p sc = case statusCode sc of
+                  (# num, _ #) -> p num
 
 
 -- |@'statusCode' sc@ returns an unboxed tuple of numeric and textual