X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponse.hs;h=920449db36e469b431babe522792ca954a6aac07;hb=eb77281b24b8d7218e1fd80164f941836cef1d5a;hp=8f45440a603411875b05a8d35a760734660941f9;hpb=bb41be0c967538a1014c87103a3a5d3840ad3e15;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 8f45440..920449d 100644
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -11,7 +11,7 @@
 module Network.HTTP.Lucu.Response
     ( -- * Class and Types
       StatusCode(..)
-    , SomeStatusCode(..)
+    , SomeStatusCode
     , Response(..)
     , statusCodes
     , module Network.HTTP.Lucu.StatusCode
@@ -21,8 +21,6 @@ module Network.HTTP.Lucu.Response
     , setStatusCode
     , resCanHaveBody
 
-    , (≈)
-    , (≉)
     , isInformational
     , isSuccessful
     , isRedirection
@@ -91,11 +89,11 @@ setStatusCode sc res
 resCanHaveBody ∷ Response → Bool
 {-# INLINEABLE resCanHaveBody #-}
 resCanHaveBody (Response {..})
-    | isInformational resStatus = False
-    | resStatus ≈ NoContent     = False
-    | resStatus ≈ ResetContent  = False
-    | resStatus ≈ NotModified   = False
-    | otherwise                 = True
+    | isInformational resStatus   = False
+    | resStatus ≡ cs NoContent    = False
+    | resStatus ≡ cs ResetContent = False
+    | resStatus ≡ cs NotModified  = False
+    | otherwise                   = True
 
 -- |@'isInformational' sc@ returns 'True' iff @sc '<' 200@.
 isInformational ∷ StatusCode sc ⇒ sc → Bool