]> gitweb @ CieloNegro.org - Lucu.git/blobdiff - Network/HTTP/Lucu/Response.hs
Code reorganisation
[Lucu.git] / Network / HTTP / Lucu / Response.hs
index 8f45440a603411875b05a8d35a760734660941f9..93291a779430c2f98e6e8ab6f6a4caa9fdcb6ff8 100644 (file)
@@ -7,22 +7,14 @@
   , UnicodeSyntax
   , ViewPatterns
   #-}
--- |Definition of things related on HTTP response.
+-- |Definition of HTTP responses.
 module Network.HTTP.Lucu.Response
-    ( -- * Class and Types
-      StatusCode(..)
-    , SomeStatusCode(..)
-    , Response(..)
-    , statusCodes
-    , module Network.HTTP.Lucu.StatusCode
-
-      -- * Functions
+    ( Response(..)
+
     , emptyResponse
     , setStatusCode
     , resCanHaveBody
 
-    , (≈)
-    , (≉)
     , isInformational
     , isSuccessful
     , isRedirection
@@ -38,8 +30,7 @@ import Data.Convertible.Utils
 import Data.Monoid.Unicode
 import Network.HTTP.Lucu.Headers
 import Network.HTTP.Lucu.HttpVersion
-import Network.HTTP.Lucu.StatusCode
-import Network.HTTP.Lucu.StatusCode.Internal
+import Network.HTTP.Lucu.Response.StatusCode
 import Prelude.Unicode
 
 -- |This is the definition of an HTTP response.
@@ -91,11 +82,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