Destroy Data.Eq.Indirect

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

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 1ff9ae71c51904dd87f427921527dd35d92fe014..920449db36e469b431babe522792ca954a6aac07 100644 (file)
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -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 â\89\88 NoContent     = False
-    | resStatus â\89\88 ResetContent  = False
-    | resStatus â\89\88 NotModified   = False
-    | otherwise                 = True
+    | isInformational resStatus   = False
+    | resStatus â\89¡ cs NoContent    = False
+    | resStatus â\89¡ cs ResetContent = False
+    | resStatus â\89¡ cs NotModified  = False
+    | otherwise                   = True
 
 -- |@'isInformational' sc@ returns 'True' iff @sc '<' 200@.
 isInformational ∷ StatusCode sc ⇒ sc → Bool