StatusCode(..)
, SomeStatusCode(..)
, Response(..)
+ , statusCodes
, module Network.HTTP.Lucu.StatusCode
-- * Functions
, printStatusCode
, printResponse
+ , (≈)
+ , (≉)
, isInformational
, isSuccessful
, isRedirection
resCanHaveBody ∷ Response → Bool
{-# INLINEABLE resCanHaveBody #-}
resCanHaveBody (Response {..})
- | isInformational resStatus = False
- | toStatusCode resStatus ≡ Just NoContent = False
- | toStatusCode resStatus ≡ Just ResetContent = False
- | toStatusCode resStatus ≡ Just NotModified = False
- | otherwise = True
+ | isInformational resStatus = False
+ | resStatus ≈ NoContent = False
+ | resStatus ≈ ResetContent = False
+ | resStatus ≈ NotModified = False
+ | otherwise = True
-- |Convert a 'Response' to 'AsciiBuilder'.
printResponse ∷ Response → AsciiBuilder