, 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
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.
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